PU-METALのブログ

日銀にはウンザリなので外貨専になりました

Weekday関数メモ

ポンドル売り損切って買ったらまた損切りそうな

4時間足も完全に下向いたしな~どうする?

 

でさっきから昨日のForex Testerのデータを加工しだして嵌まったのでメモ

 

曜日を使うかもしれないので出しとこうとやり出したら悩んだ

プロシージャと表はこんな

 

f:id:kohnodechu:20170124153432p:plain

Sub 曜()
Dim Rp As Range 'rpは日付
For Each Rp In Selection
With Rp
' .Offset(, 2).Value = Weekday(Left(.Value, 4) / Mid(.Value, 5, 2) / Right(.Value, 2))
.Offset(, 2).Value = Weekday(Left(.Value, 4) & " /" & Mid(.Value, 5, 2) & " /" & Right(.Value, 2))
End With
Next
End Sub

 

間違ったのはこのコメントブロックにしているところ

これだと2001/1/3の割り算をしてしまうのね

 

久々Weekday関数使ったもので・・・

忘れないようここにメモ

 

ちなみにポンドルの買い損切った