VBAのIF分で時間指定の条件式の書き方を教えてください。
9：00～14：00で実行する下記のマクロはうまく機能しています。
If Time >= TimeValue("9:00:00") And Time <= TimeValue("14:00:00") Then
下記をご教授願います。
16：00～翌日の4：00までの、日をまたがっての１２時間後の条件式の書き方を教えてください。
よろしくお願いします。
エクセルｖｂａなのですが
Sub test01()
Debug.Print Range("a1").Address
Debug.Print Range("a1").AddressLocal
End Sub
この二つの違いは何ですか？
どちらも$A$1が返るのですが。
アドレスを取得したい場合、どちらを使った方がよろしいでしょうか？
Form1に問題をつくりラジオボタンでチェックできるようにして、Form2にチェックした内容の解答を表示させるプログラムを作りましたが、モジュール内でフラグを立てて、チェックをおこなう方法がわからないので、教えていただけませんか。
Form1
Private Sub Command1_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Command1.Click
If Option1.Checked = True Then
'鼻の長い動物
Form2.Label1.Text = "象です。"
ElseIf Option2.Checked = True Then
'首の長い動物
Form2.Label1.Text = "きりんです。"
ElseIf Option3.Checked = True Then
'足の速い動物
Form2.Label1.Text = "チーターです。"
Else
End If
Form2
Private Sub Command1_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Command1.Click
Form2.Show()
Me.Hide()
現在、以下の記述で項目の名称が一致した場合、数字の加算集計を行って名称と加算結果を別シートに表示させるマクロを使用しています。
このマクロに記述を加えて、『部署名別に項目名が一致した場合、数字の加算を行って部署名、項目名、加算集計結果を別シートに並べて表示させる』というマクロを作る場合、どのように記述すれば宜しいでしょうか？
ご回答宜しくお願いします。
Sub sample()
Dim i As Long, db, wk
Set db = CreateObject("Scripting.Dictionary")
For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
wk = Cells(i, "A")
db(wk) = db(wk) + Cells(i, "B")
Next
With Sheets("sheet2")
wk = db.keys
For i = 0 To UBound(wk)
.Cells(i + 1, "A") = wk(i)
.Cells(i + 1, "B") = db(wk(i))
Next
End With
Set db = Nothing
End Sub
現在、以下の記述で項目の名称が一致した場合、数字の加算集計を行って名称と加算結果を別シートに表示させるマクロを使用しています。
このマクロに記述を加えて、『部署名別に項目名が一致した場合、数字の加算を行って部署名、項目名、加算集計結果を別シートに並べて表示させる』というマクロを作る場合、どのように記述すれば宜しいでしょうか？
ご回答宜しくお願いします。
Sub sample()
Dim i As Long, db, wk
Set db = CreateObject("Scripting.Dictionary")
For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
wk = Cells(i, "A")
db(wk) = db(wk) + Cells(i, "B")
Next
With Sheets("sheet2")
wk = db.keys
For i = 0 To UBound(wk)
.Cells(i + 1, "A") = wk(i)
.Cells(i + 1, "B") = db(wk(i))
Next
End With
Set db = Nothing
End Sub
