No.1ベストアンサー
- 回答日時:
UserForm に TextBox1~TextBox4 と CommandButton があるとして
Private Sub CommandButton1_Click()
Dim r, i As Integer
If TextBox1.Value = "" Then Exit Sub
With Activesheet
Set r = .Rows(1).Find(what:=TextBox1.Text, after:=.Range("IV1"), _
LookIn:=xlValues, lookat:=xlWhole)
If r Is Nothing Then
MsgBox TextBox1.Text & "は無い。", vbOKOnly + vbInformation, "日付"
Exit Sub
End If
For i = 2 To 4
r.Offset(i - 1, 0).Value = Me.Controls("TextBox" & i).Value
Next i
End With
End Sub
できました。ありがとうございました!
もうひとつお教えねがいないでしょうか?
下のような表があります(日付はセル結合しています)
日付をaとbに分けて入力します
1日 2日 3日
a b a b
A商品 100 200 300 100
B商品 150 250 210 250
C商品 100 300 500 300
下のようなユーザーフォームのとき
日付 ** **・・・・・
a b
A商品 *** ***
B商品 *** ***
C商品 *** ***
日付に対応した商品欄に入力させるには
どう記述したらいいのでしょうか?
No.2
- 回答日時:
#1です。
> 下のような表があります(日付はセル結合しています)
> 日付をaとbに分けて入力します
この辺が良く理解出来ませんでした。結合セルに分けて入力?
Findで発見したセルが変数 r にセットされているので後は応用で行けると思いますが、、、
例えば
TextBox1 を 検索用
TextBox2~4 を 発見セルの下2行目から転記
TextBox5~7 を 発見セルの右1列目下2行目から転記
となら、
Private Sub CommandButton1_Click()
Dim r, i As Integer
If TextBox1.Value = "" Then Exit Sub
With ActiveSheet
Set r = .Rows(1).Find(what:=TextBox1.Text, after:=.Range("IV1"), _
LookIn:=xlValues, lookat:=xlWhole)
If r Is Nothing Then
MsgBox TextBox1.Text & "は無い。", vbOKOnly + vbInformation, "日付"
Exit Sub
End If
For i = 2 To 7
Select Case i
Case 2 To 4
r.Cells(1, 1).Offset(i, 0).Value = Me.Controls("TextBox" & i).Value
Case 5 To 7
r.Cells(1, 2).Offset(i - 3, 0).Value = Me.Controls("TextBox" & i).Value
End Select
Next i
End With
End Sub
---
でも、、、
個人的な意見ですが、使う側としては入力位置の補完として該当日付に飛べば十分で、シート構成と同じUserFormなんて要らないような気がしますけど、、、
質問方が不十分で申し訳ありません
日付、1日はセル結合してあるのでB1です
日付、1日の下セルa=B2,b=C2という意味でした
ご回答ありがとうございました
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルでのVBA 2 2022/08/03 06:48
- その他(Microsoft Office) Excelで該当しない項目(#N/Aの商品名)を簡単に表示・抽出させる方法についてです 1 2022/08/25 22:12
- Excel(エクセル) excelで検索した商品の画像(ネットワーク上の)を表示させたい。 3 2023/06/28 00:32
- Excel(エクセル) エクセルの書式設定の表示形式で設定した文字を文字列としてコピーしたい 1 2022/12/21 10:41
- Excel(エクセル) SUMIFのIF分岐について 4 2023/04/15 12:57
- その他(買い物・ショッピング) 商品にラベルを貼って出荷するまでのの手順にについて 2 2022/09/29 15:26
- Excel(エクセル) VBAで同フォルダ内の別ブックを開かず参照して条件の一致する行の指定セルを抽出するには? 1 2022/07/21 19:29
- Excel(エクセル) エクセルの条件付き書式 個人シートを参照して集計シートに色付けしたい 1 2023/06/22 00:39
- Visual Basic(VBA) VBAコードが作動せず、どこに問題があるのか教えて下さい。 3 2023/06/13 13:20
- Excel(エクセル) 製品番号での整列と、検索に関して 3 2023/06/28 19:20
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルマクロ セルをクリック...
-
Excel:長い文字列が途中で切れる
-
エクセルで10進法から60進法に...
-
Excelで数値を右詰めでセルに一...
-
最大値のあるセルの行番号のみ...
-
ExcelからPDF文書の特定ページ...
-
【Excel】枠をはみ出して表示さ...
-
エクセルで隣のセルに一月プラ...
-
excel 図形に入れたテキストや...
-
エクセルでセルのフォントサイ...
-
EXCELで日付を入力すると...
-
エクセル #### 表示させ...
-
■Excel 1つのセルにある生年月...
-
Chr(10)とCHAR(10)は同じ意味で...
-
行のデータ(a列b列c列)をd列...
-
表示されている人数だけを数え...
-
エクセルの数式で教えてください。
-
エクセル 入力した文字が隣の...
-
隔月のことを関数で処理したい...
-
Excelが正常に作動しません。解...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルマクロ セルをクリック...
-
Excel:長い文字列が途中で切れる
-
エクセルで10進法から60進法に...
-
最大値のあるセルの行番号のみ...
-
Excelで数値を右詰めでセルに一...
-
EXCELで日付を入力すると...
-
エクセルで隣のセルに一月プラ...
-
エクセルでセルのフォントサイ...
-
ExcelからPDF文書の特定ページ...
-
excel 図形に入れたテキストや...
-
エクセル 入力した文字が隣の...
-
エクセル #### 表示させ...
-
【Excel】枠をはみ出して表示さ...
-
エクセルシートの合計の変動
-
エクセルで、賞味期限を、製造...
-
エクセルの数式で教えてください。
-
Chr(10)とCHAR(10)は同じ意味で...
-
Excel ハイパーリンクによる非...
-
■Excel 1つのセルにある生年月...
-
Excelで開始日と終了日を表示さ...
おすすめ情報