3つ聞きたいです。
ユーザーフォームのテキストボックスに記入した内容を
最終行を取得して、指定の列にコメントを入力させるためには
どうするのがいいでしょうか。下記で、エラーが出てしまいます。
.cells(lrow + 1, "c").addcomment = textbox5.value
それと、一つのテキストボックスの内容を複数の
セルへ記入させるには、下記をどうすればいいですか。
.cells(lrow + 1, "X:Z").value = textbox6.value
あと、ショートカットキーで(例えば、CTRL + Q)
ユーザーフォームを起動させるにはどうすればよいですか。
するとしたら、そのコードはどこに表示させるのがいいでしょうか。
いろいろ、お願いですが教示お願いします。
No.1ベストアンサー
- 回答日時:
質問者は難しいことを聞いている。
処理の流れによっての難しさがはっきり意識されていないと思う。Userform1にテキストボックス、コマンドボタンを1つ貼り付け
ユーザーフォームの実行
テキストボックスに文字列を入れる
ボタンをクリック
(ここまで質問に書くこと)
でシートにコメント設定(A列の最終行の例)
Private Sub CommandButton1_Click()
t = UserForm1.TextBox1.Text
MsgBox t
d = Worksheets("Sheet1").Range("A65536").End(xlUp).Row
With Worksheets("Sheet1")
.Range("A" & d + 1).AddComment
.Range("A" & d + 1).Comment.Text Text:=t
End With
End Sub
ーー
複数のセルに値代入するなんてどこが疑問か、3セルなら3行書いたら仕舞いでは。
Private Sub CommandButton1_Click()
t = UserForm1.TextBox1.Text
MsgBox t
Worksheets("Sheet1").Cells(3, "B") = t
Worksheets("Sheet1").Cells(5, "C") = t
Worksheets("Sheet1").Cells(10, "A") = t
End Sub
ーー
ショートカットキーの設定はマクロの記録にある。
マクロの記録を、操作は何でもよい簡単なものから取り、そのときショートカットの登録を、「マクロの記録」ダイアロウグの画面で行い、コードの主要な中身を消して、
(もちろん標準モジュールの1つにに記録される)
UserForm1.Show
に置き換えた。
Sub Macro1()
'
' Macro1 Macro
' Keyboard Shortcut: Ctrl+Shift+Q
UserForm1.Show
End Sub
===
質問はなるべく1テーマずつに分けてほしい。
VBAのやや前に進んだ状態と思うが、疑問が噴出するだろう2,3では収まらないはず。だから解説書や特にWEBで照会(検索語の工夫が肝心)し、自分の疑問にWEB記事を修正する術を身につけてほしい
。
回答ありがとうございました。
すっきりできました。
わけようと思ってましたが、わけてしまって逆に大変かと思って
まとめしまいました。
申し訳ありません。
また、質問の仕方に関しても不適切で申し訳ありません。
ただ、解説書やWEB検索でも、行き詰ったためにこの場で
質問いたしました、私はそういうためにこの掲示板が
あると思って利用しております。
経験や知識がなければ修正も何もならないと思います。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ExcelVBAでユーザーフォームでテキストボックスなどからセルに連続して入力するコーディングの際の 2 2022/06/29 22:51
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) フレーム内のオプションボタンの選択結果をセルに書き出したい。 図のような預金種目というフレームにオプ 2 2022/07/29 11:12
- Visual Basic(VBA) 列と行の名前(重複あり)が交差するセルに、データを入力したい 2 2022/06/25 22:42
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) VBA 重複チェック後に値をワークシートに転記する方法を教えてください。 1 2023/03/19 12:43
- Visual Basic(VBA) ユーザーフォームの書き出しで追加のご相談 ユーザーフォームの値をシートに書き出す際、コードが表示され 2 2022/08/05 10:58
- Visual Basic(VBA) 最終列の右へSUM関数を作成するため下記コードを実行しましたが、最終列「10月28日」が上書きされて 3 2022/12/05 20:32
- Visual Basic(VBA) エクセル VBA メール本文に指定セルに記載されているURLをリンクとして記載する方法 8 2022/08/08 07:50
- Visual Basic(VBA) 検索のユーザーフォームの表示について 1 2023/03/27 23:31
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ExcelVBAを使って、値...
-
特定のセルが空白だったら、そ...
-
i=cells(Rows.Count, 1)とi=cel...
-
Excelのハイパーリンクにマクロ...
-
【Excel】指定したセルの名前で...
-
Excelで指定した日付から過去の...
-
DataGridViewのセル編集完了後...
-
【Excel VBA】指定行以降をクリ...
-
EXCELで変数をペーストしたい
-
Excel vbaで特定の文字以外が入...
-
【VBA】指定したセルと同じ値で...
-
特定行の色を変えたい(FlexGrid)
-
VBAでセルをクリックする回...
-
EXCELのVBA-フィルタ抽出後の...
-
スプレッドシートの数値列に対...
-
VBAの計算で@が出てしまう件
-
セル色なしの行一括削除
-
3桁または4桁の数値を時刻に...
-
”戻り値”が変化したときに、マ...
-
TODAY()で設定したセルの日付...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ExcelVBAを使って、値...
-
特定のセルが空白だったら、そ...
-
【Excel VBA】指定行以降をクリ...
-
i=cells(Rows.Count, 1)とi=cel...
-
【Excel】指定したセルの名前で...
-
Excelで指定した日付から過去の...
-
特定の文字を条件に行挿入とそ...
-
Excel VBA、 別ブックの最終行...
-
EXCELで変数をペーストしたい
-
Excelのプルダウンで2列分の情...
-
Excel vbaで特定の文字以外が入...
-
TODAY()で設定したセルの日付...
-
screenupdatingが機能しなくて...
-
DataGridViewの各セル幅を自由...
-
Sub 要具ライフ() ActiveSheet....
-
【EXCEL VBA】Range("A:A").Fi...
-
VBAを使用した時間管理
-
VBAでセルをクリックする回...
-
セル色なしの行一括削除
-
エクセルVBAでコピーして順...
おすすめ情報