Private Sub ListBox1_Click()
Dim response As VbMsgBoxResult
response = MsgBox("編集しますか?記載情報に移動しますか?", vbYesNoCancel + vbQuestion, "選択の確認")
If response = vbNo Then
' 編集しない場合
' 選択された行にカーソルを移動
Sheet1.Cells(ListBox1.ListIndex + 1, 1).Select
ElseIf response = vbYes Then
' UserForm1 に検索した情報を表示
UserForm1.ComboBox1.Value = ComboBox1.Value
UserForm1.TextBox3.Value = ComboBox5.Value
' 同様に他のコントロールにデータをセットする
' UserForm1 を表示
UserForm1.Show
End If
Unload UserForm2
End Sub
現状このようなコードでリストボックスに表示した行をクリックして編集するならUserForm展開するのと記載情報に移動しますか?の時sheet1の該当する行にカーソル移動させたいのですがうまくいきません
AIに相談してもなかなかはかどりません(´;ω;`)
listBoxに表示している情報で検索対象となる列は表示の一番右でListIndex, 0だと思うのですが
それでもうまくいきませんでした
sheet1のA列に該当する値が(連番)あるのですがカーソルはlistBoxに表示した行をsheet1でカーソルを移動させる感じになっている気がします
どうか修正できる方おりましたらよろしくお願いしますm(__)m
A 回答 (4件)
- 最新から表示
- 回答順に表示
No.4
- 回答日時:
ListBox1にはどのようにリストを登録しているのでしょうか
#3のPrivate Sub UserForm_Initialize()ではListBox1の登録は 1行目から始まっています(この登録内容で考えています)
>ListIndex, 0だと思うのですが
そうですね なので+1しています
しかしListBox1の登録が2行目からであれば
ListBox1のインデックスとセルの行ナンバーの差異を+する必要があるのではないかと・・・
2行目からであれば +2としなければ 目的のセルにならないと思います
セル行は1から始まり ListIndexは0から始まるので
Sheet1.Cells(ListBox1.ListIndex +最初の登録セル行番号, 1).Select
でどうでしょう(行方向に順次List登録した場合)
Private Sub FilterListBox()
Private Function IsFiltered(ByVal row As Long, ByVal rng As Range) As Boolean
Private Function GetColumnIndex(ByVal comboBoxIndex As Long) As Long
Private Sub LoadComboBoxItems()
Private Function GetUniqueValues(rng As Range) As Variantを設定しています
No.3
- 回答日時:
読解力が無く申し訳ないのですが
>listBoxに表示した行をsheet1でカーソルを移動させる感じになっている動きをします
そのような処理ではないのですか
例えば(ご質問そのまま)
Private Sub UserForm_Initialize()
Dim i As Long
For i = 1 To Sheet1.Cells(Rows.Count, 1).End(xlUp).Row
ListBox1.AddItem Sheet1.Cells(i, 1)
Next i
End Sub
'?UserForm2
Private Sub ListBox1_Click()
Dim response As VbMsgBoxResult
response = MsgBox("編集しますか?記載情報に移動しますか?", vbYesNoCancel + vbQuestion, "選択の確認")
If response = vbNo Then
' 編集しない場合
' 選択された行にカーソルを移動
Sheet1.Activate
Sheet1.Cells(ListBox1.ListIndex + 1, 1).Select
ElseIf response = vbYes Then
End If
End Sub
>sheet1の該当する行にカーソル移動させたいのですがうまくいきません
カーソル・・・セルを入力モードにしたいという事ですか?
・・・読み違えていたのかもしれません
現状の結果でなく
いいえを押下した時の 期待する処理結果はどのような結果ですか
いいえを押したら本来ならlistBoxでクリックした行の該当するsheet1のA列のセルにカーソルが行くようにしたいのですがlistBoxに表示した行をクリックしたらその表示っしていた行数分をsheet1の同じ行数分でカーソルを移動させる感じになっている感じです
No.2
- 回答日時:
Sheet1. が必ずしも WorkSheets("Sheet1") になるかは仕様次第です。
そこは間違いないですか?
あとはシートを先にアクティベートしてからセルを選択するとかかな?
検証するにもエクセルないので具体的コードは書けませんが。
No.1
- 回答日時:
>がうまくいきません
コードを見る限りsheet1がアクティブであればSelectされそうですが
どのような事でうまくいかないのか、どうなるのかなどを書きましょう
1004エラーが出る場合は sheet1シートオブジェクトをアクティブにしてからセルを選択します (存在の確認もしてください)
Sheet1.Activate
逆にSheet1ではなくアクティブなシートに対して処理を行いたいのなら
Sheet1→ActiveSheet とします
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA listBoxについて 2 2024/03/26 16:14
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- Visual Basic(VBA) VBA UserFormからの転記で 3 2024/03/14 14:04
- Visual Basic(VBA) vbaを早くしたい 5 2022/09/09 10:58
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/11/09 11:51
- Visual Basic(VBA) ユーザーフォームに2つのコンボボックス銀行名「ConboBox1」支店名を「ConboBox2」とし 4 2022/08/03 17:34
- Visual Basic(VBA) Excel VBAの解読について質問があります。 概要は、マクロでチェックボックスにチェックすると日 1 2023/02/10 07:50
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
VBA listBoxについて
Visual Basic(VBA)
-
VBA 複数条件の分岐処理の上手な方法
Visual Basic(VBA)
-
VBAで大量のファイルをシート名ごとに転記やらいろいろしたい!
Visual Basic(VBA)
-
-
4
VBAの計算で@が出てしまう件
Visual Basic(VBA)
-
5
エクセルVBAについて
Visual Basic(VBA)
-
6
vba 削除
Visual Basic(VBA)
-
7
VBA指定行削除
Visual Basic(VBA)
-
8
現在のブックを閉じないで、マクロ抜きの(現在のブックの)コピーを作成したい
Visual Basic(VBA)
-
9
Vba SelStart、SelLen教えてください教えてください
Visual Basic(VBA)
-
10
ExcelのVBAコードについて教えてください。
Visual Basic(VBA)
-
11
VBAなくなるの?
Visual Basic(VBA)
-
12
VBA一覧取得 再投稿
Visual Basic(VBA)
-
13
エクセルVBA
Visual Basic(VBA)
-
14
Excel マクロについての相談
Visual Basic(VBA)
-
15
以下のコードを実行しても、オブジェクト変数または、withブロック変数が設定されていませんとエラーが
Visual Basic(VBA)
-
16
【ExcelVBA】インデックスが有効範囲にありません。の理由が分かりません
Visual Basic(VBA)
-
17
VBA UserFormからの転記で
Visual Basic(VBA)
-
18
Word VBA MSGBOX 内で降順表示
Visual Basic(VBA)
-
19
Excel VBA 定義されたプロージャ名、関数名の取得
Visual Basic(VBA)
-
20
VBAで各列の+"と"o"の合計数を数え3行目と4行目に入力したい"
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
パソコンへの「Dropbox...
-
VBA listBoxから
-
Excel VBAでMsgboxの値を取得す...
-
VAB:メッセージボックスの色に...
-
エクセルでマクロを実行中に「...
-
Excel VBA コンボボックスについて
-
Access メッセージボックスで文...
-
Excelで、リストボックスでカテ...
-
worksheetFunctionクラスのVloo...
-
VBA シートのボタン名を変更し...
-
実行時エラー 438になった時の...
-
ユーザーフォームを表示中にシ...
-
【C#/Java?】try-catchでcatch...
-
VBA(エクセル)で自動的にボタン...
-
IF文に時間(何時から何時ま...
-
Form_Load と Form_Activate の...
-
「Columns("A:C")」の列文字を...
-
エクセルVBAのフォームを最...
-
vbaのエラー対応(実行時エラー...
-
private subモジュールを他のモ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
パソコンへの「Dropbox...
-
VBA listBoxから
-
今日スマホでネットをしていた...
-
エクセルでマクロを実行中に「...
-
Excel VBA コンボボックスについて
-
リストボックスの全行表示
-
VAB:メッセージボックスの色に...
-
Access メッセージボックスで文...
-
VB.net コンボボックス
-
NEXUS 7で自炊したPDFが読めま...
-
Excel VBAでMsgboxの値を取得す...
-
QT グループボックスについて
-
メッセージボックスの再表示の方法
-
Excelで、リストボックスでカテ...
-
サービスアプリからメッセージ...
-
AccessのMsgBox表示位置について
-
windows10 上にぴょこぴょこ出...
-
お世話になります access初心者...
-
処理中メッセージを出しておき...
-
画面上の文字が表示されない
おすすめ情報
実行エラーは出ません、うまくいかない時の動きは説明していますが・・・カーソルは移動はするのですがその行のセルにカーソルが行かずにlistBoxに表示した行をsheet1でカーソルを移動させる感じになっている動きをします