17/01/03 11:14:55.29 wnrnHeuT.net
うめ
1044:デフォルトの名無しさん
17/01/03 22:42:43.33 v/nbA2QD.net
あめ
1045:デフォルトの名無しさん
17/01/04 06:09:09.73 a8j3oUUf.net
かめ
1046:デフォルトの名無しさん
17/01/04 09:05:25.75 /4cm7e5r.net
おめ
1047:デフォルトの名無しさん
17/01/04 11:17:19.55 QaTHv5+Z.net
週間スケジュールを作りたいです。
シートが7つあって、全シートのB3にToDoを書き込むセルがあります。
どのシートのToDoを変更しても全てのシートのToDoが連動して変更されるようにしたいです。
コードを教えていただけないでしょうか。
1048:デフォルトの名無しさん
17/01/04 11:57:23.66 zmi2V8Wc.net
>>987
目的はよしとして
より具体的に動作を表現して。
1049:デフォルトの名無しさん
17/01/04 11:58:47.15 0ISnzSv/.net
全シートにWorksheet_Change置いて変更箇所がB3だったら全シートに反映でいいんじゃね
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Sheet As Worksheet
Application.EnableEvents = False
If Target.Address = "$B$3" Then
For Each Sheet In ActiveWorkbook.Worksheets
If Not ActiveSheet Is Sheet Then
Sheet.Range(Target.Address).Value = Target.Value
End If
Next
End If
Application.EnableEvents = True
End Sub
1050:デフォルトの名無しさん
17/01/04 12:09:38.67 0ISnzSv/.net
ThisWorkbookにWorkbook_SheetChange置いた方がいいな
1051:デフォルトの名無しさん
17/01/04 12:11:00.06 QaTHv5+Z.net
>>988
>>989
全シート反映でうまくいきました。
大変助かりました。
ありがとうございます。
1052:デフォルトの名無しさん
17/01/04 14:24:22.61 zVgTp/sIV
コマンドボタンをクリックする度に500円ずつ加算され、
ラベルに表示される物が作りたいと思っているのですが、
あと何が足りないのかがわかりません。お知恵をお貸しください…
（現状では１クリックすると1000円になる）
Private Sub CommandButton1_Click()
y = 500
y = y + 500
Label1.Caption = y
End Sub
1053:デフォルトの名無しさん
17/01/04 17:37:41.78 HpCJaqNh.net
梅
1054:デフォルトの名無しさん
17/01/04 18:47:36.88 DnLPHx3K.net
松
1055:デフォルトの名無しさん
17/01/04 19:04:14.05 S3/LF5h5.net
竹
1056:デフォルトの名無しさん
17/01/05 11:48:17.32 gvhgNrtK.net
うめてんてー
1057:デフォルトの名無しさん
17/01/05 12:58:45.55 rordfoes.net
おちろ！
1058:デフォルトの名無しさん
17/01/05 13:54:27.06 p9OTJbgP.net
質問ですが
1059:デフォルトの名無しさん
17/01/05 13:54:43.65 p9OTJbgP.net
よろしいでしょうか？
1060:デフォルトの名無しさん
17/01/05 14:05:52.06 3kVSXnTB.net
うめ
1061:デフォルトの名無しさん
17/01/05 14:12:04.11 K3UYemjT.net
Next スレ
1062:デフォルトの名無しさん
17/01/05 14:12:22.11 K3UYemjT.net
End Sub
1063:過去ログ ★
[過去ログ]
■ このスレッドは過去ログ倉庫に格納されています