Excel VBA質問箱 IV

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

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


46796 / 76735 ←次へ | 前へ→

【34906】Re:ユーザフォームを使い、指定した範囲に数字を入れる
回答  Kein  - 06/2/16(木) 0:23 -

引用なし
パスワード
   Sheet1 に入力するとして・・

Private Sub CommandButton1_Click()
  Dim Txt As String
  Dim FR As Range

  Txt = TextBox1.Text
  If Txt = "" Then Exit Sub
  With Sheets("Sheet1")
   If IsEmpty(.Range("B5").Value) Then
     .Range("B5").Value = Txt: GoTo ELine
   End If
   Set FR = .Range("B5:E65536").Find("*", , xlValues)
  End With
  If FR.Column = 5 Then
   FR.Offset(1, -3).Value = Txt
  Else
   FR.Offset(, 1).Value = Txt
  End If
  Set FR = Nothing
ELine:
  With TextBox1
   .Text = ""
   .SetFocus
  End With
End Sub

で、どうでしょーか ?
0 hits

【34883】ユーザフォームを使い、指定した範囲に数字を入れる Ny 06/2/15(水) 20:16 質問
【34906】Re:ユーザフォームを使い、指定した範囲に... Kein 06/2/16(木) 0:23 回答
【34944】Re:ユーザフォームを使い、指定した範囲に... Kein 06/2/16(木) 16:33 発言
【34957】Re:ユーザフォームを使い、指定した範囲に... Ny 06/2/16(木) 21:00 お礼
【34959】Re:ユーザフォームを使い、指定した範囲に... Kein 06/2/16(木) 22:42 回答
【34972】Re:ユーザフォームを使い、指定した範囲に... Ny 06/2/17(金) 11:08 お礼

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