Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

1939 / 13658 ﾂﾘｰ

←次へ　｜　前へ→

▼

【71007】セルの内容を検索しその列のセルの内容をｺﾋﾟﾍﾟしたい ｸﾘｼｭﾌｧｰ 12/1/25(水) 17:31

【71008】Re:セルの内容を検索しその列のセルの内容... Yuki 12/1/25(水) 17:50

【71009】Re:セルの内容を検索しその列のセルの内容... ｸﾘｼｭﾌｧｰ 12/1/25(水) 18:31

【71010】Re:セルの内容を検索しその列のセルの内容... ｸﾘｼｭﾌｧｰ 12/1/25(水) 20:45


	【71007】セルの内容を検索しその列のセルの内容を...

ｸﾘｼｭﾌｧｰ - 12/1/25(水) 17:31 -


	引用なし

	パスワード

　　　　A　　　　B　　　　C
1 　　佐藤　　　東京　　中央区
2　　鈴木　　　神奈川　神奈川区
3 　　山田　　　静岡　　藤枝
4 　　高橋　　　埼玉　　川越

UserFormのCommandButton1を押したときにｱｸﾃｨﾌﾞのｾﾙの行（たとえば鈴木をｱｸﾃｨﾌﾞにしたとして）
の左から3番目（神奈川）をｺﾋﾟｰして、sheet2のA1ｾﾙに貼り付けしたい場合

どうしたらよろしいでしょうか
よろしくお願いいたします。


	【71008】Re:セルの内容を検索しその列のセルの内...

Yuki - 12/1/25(水) 17:50 -


	引用なし

	パスワード

▼ｸﾘｼｭﾌｧｰさん：
こんにちは。

Private Sub CommandButton1_Click()
　　ActiveCell.Offset(, 2).Copy Worksheets("Sheet2").Range("A1")
End Sub


	【71009】Re:セルの内容を検索しその列のセルの内...

ｸﾘｼｭﾌｧｰ - 12/1/25(水) 18:31 -


	引用なし

	パスワード

▼Yuki さん：
ありがとうございます

アクティブなセルから数えてではなく、A列を1として
例えばアクティブ行を鈴木の列で適当なF行などをクリックしたとして
その行のC列（左から３番目の行）の内容をコピーするにはどうしたらよろしいでしょうか？

貼り付けるセルが結合している場合は、どのように記入したらよろしいでしょうか

よろしくお願いいたします


	【71010】Re:セルの内容を検索しその列のセルの内...

ｸﾘｼｭﾌｧｰ - 12/1/25(水) 20:45 -


	引用なし

	パスワード

▼Yuki さん：

Private Sub CommandButton1_Click()
　Dim 行
　行 = ActiveCell.Row
　Cells(行, 2).Copy Sheet2.Range("C6:I7")
End Sub

こんな形でできました、ご指導ありがとうございます


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

1939 / 13658 ﾂﾘｰ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free