Excel VBA質問箱 IV

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

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


20585 / 76732 ←次へ | 前へ→

【61561】Re:VBE テキスト入力
回答  工藤 等 E-MAIL  - 09/5/18(月) 5:12 -

引用なし
パスワード
   ▼tuki さん:
>エクセルVBEのマクロ入力下記でいかがでしょうか?
>


>-----------------------------------------------------------------
Private Sub CommandButton1_Click()
Dim lRow As Long
  TextBox1.SetFocus
  With Worksheets("Sheet1")
    lRow = .Range("A" & Rows.Count).End(xlUp).Row
      If TextBox1.Value = "" Or TextBox2.Value = "" Then
        MsgBox "入力されていない箇所があります"
        Exit Sub
      End If
    .Range("A" & lRow + 1).Value = TextBox1.Value
    .Range("B" & lRow + 1).Value = TextBox2.Value
      If TextBox1.Value = True Then
        .Range("A" & lRow + 1).Interior.ColorIndex = 3
      End If
      If TextBox2.Value = True Then
        .Range("B" & lRow + 1).Interior.ColorIndex = 3
      End If
  End With
  TextBox1.Text = ""
  TextBox2.Text = ""
End Sub

>-----------------------------------------------------------------

0 hits

【61496】VBE テキスト入力 tuki 09/5/13(水) 17:31 質問
【61497】Re:VBE テキスト入力 つん 09/5/13(水) 17:40 回答
【61510】Re:VBE テキスト入力 tuki 09/5/14(木) 9:39 発言
【61514】Re:VBE テキスト入力 つん 09/5/14(木) 10:05 回答
【61517】Re:VBE テキスト入力 tuki 09/5/14(木) 11:29 発言
【61518】Re:VBE テキスト入力 つん 09/5/14(木) 11:39 発言
【61519】Re:VBE テキスト入力 tuki 09/5/14(木) 11:48 発言
【61520】Re:VBE テキスト入力 つん 09/5/14(木) 12:12 発言
【61523】Re:VBE テキスト入力 tuki 09/5/14(木) 13:23 お礼
【61561】Re:VBE テキスト入力 工藤 等 09/5/18(月) 5:12 回答

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