Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


35979 / 76738 ←次へ | 前へ→

【45947】暦を作り、コメントをいれるには
質問  にしもり  - 07/1/18(木) 14:41 -

引用なし
パスワード
   こんにちは。
暦をつくり、日別になっているセルに、コメントをユーザフォームを経由して入れたいとおもっています。

A列はSUN,BはMON・・・G列はSATです。(1、2行目はタイトルです。)
したがって2007年1月なら"B3"に"1","C3"に"2"・・・"D7"に"31"と入っています。

いま、ユーザフォームのCOMBOBOXに1−31まで肢を設けます。
またTextBoxを計6個設けます。
COMBOBOXで1を選び、TextBoxにそれぞれ任意のcharを入れeNTERすると、"B3"にコメントとして入る、というふうにしたいのです。
(そのとき各TextBoxに入力された値は、改行して6行にして表示したい。)

下をご覧ください。
ここまで自力でできました。
ていうかこの方向性でいいのかわかりません。
どなたかこのあとどうすればいいかご教授ねがえませんでしょうか。

*****

Private Sub CommandButton1_Click()

Dim ComS As String
Dim Rc As Integer
Dim Sc As Long
Dim MyR As String
Dim C As Range
Dim flg As Boolean


For Each C In Range("A3", "B3", "C3", "D3", "E3", "F3", "G3", "A4", "B4", "C4", "D4", "E4", "F4", "G4", _
"A5", "B5", "C5", "D5", "E5", "F5", "G5", "A6", "B6", "C6", "D6", "E6", "F6", "G6", "A7", "B7", "C7", "D7", "E7", "F7", "G7")
  If C.Text = ComboBox1.Value Then Sc = C.Column
  If C.Text = ComboBox1.Value Then Rc = C.Row: Exit For
Next

If Sc = 0 Or Rc = 0 Then
  flg = True: GoTo Eline
End If

Eline:
Application.EnableEvents = False
If flg Then
  MsgBox "入力した日はありません"
Else

ComS = TextBox1.Value & TextBox2.Value & TextBox3.Value & TextBox4.Value & TextBox5.Value & TextBox6.Value
Cells(Rc, Sc).AddComment ComS
Cells(Rc, Sc).Comment.Visible = False

End Sub

Private Sub CommandButton2_Click()

ComboBox1.Value = ""
TextBox1.Value = "A:"
TextBox2.Value = "B:"
TextBox3.Value = "C:"
TextBox4.Value = "D:"
TextBox5.Value = "E:"
TextBox6.Value = "F:"

End Sub

0 hits

【45947】暦を作り、コメントをいれるには にしもり 07/1/18(木) 14:41 質問
【45948】Re:暦を作り、コメントをいれるには へっぽこ 07/1/18(木) 15:34 発言
【45950】Re:暦を作り、コメントをいれるには にしもり 07/1/18(木) 16:24 お礼

35979 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free