No.4ベストアンサー
- 回答日時:
一番重要な部分の説明を抜かしては拙いですね。
Sheet1のセルをダブルクリックして、UserFormを表示
TextBoxの値を、ActiveCellとSheet2,3のセルに代入
Sheet1のA1をダブルクリックした場合
Sheet2では、B2~
Sheet3では、C3~
'---------------------------------------------
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
UserForm1.Show
End Sub
'---------------------------------------
Private Sub CommandButton1_Click()
Dim R As Long
Dim C As Integer
R = ActiveCell.Row
C = ActiveCell.Column
ActiveCell.Value = TextBox1.Text
Sheets("Sheet2").Cells(R + 1, C + 1).Value = TextBox1.Text
Sheets("Sheet3").Cells(R + 2, C + 2).Value = TextBox1.Text
ActiveCell.Offset(1).Select
TextBox1.Text = ""
TextBox1.SetFocus
End Sub
'--------------------------------------------
ただ、実際には入力する列は決まっているはずなので
その列のセルをダブルクリックしたときのみマクロが実行されるようにした方がいいのではと。
例えば、ダブルクリックする列は、Sheet1のA列のみだとすると
'-------------------------------------
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column <> 1 Then Exit Sub
Cancel = True
UserForm1.Show
End Sub
'-------------------------------------
No.3
- 回答日時:
こうゆう事?
'ワークシートモジュールへ
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
UserForm1.Show
End Sub
'ユーザーフォームへ
Private Sub CommandButton1_Click()
ActiveCell = TextBox1.Value
ActiveCell.Offset(1).Select
End Sub
>他の質問を参照したのですが、どうも求めているものとは違う感じです。
この程度のこと、質問する人あまりいないでしょうから
この回答への補足
ご回答ありがとうございます。
詳しい内容は、回答2に記載しましたが、取得したセルの番地を
基準に、それぞれのワークシートの決められたセルへ値を転送しよう
かと考えています。
たとえば、シート1の(A、1)を基準にした場合、シート2の(B、2)
に値を転送する時に基準にしたセルから1列と1行移動した箇所へ、
これをシート3・4・・と展開したいと考えてます。
そしてユーザーフォームの一通りの項目を入力し、コマンドボタンで
各シートに値を転送したあと、次のユーザーフォームの入力で、自動的
に各シートの最初の位置から、1行下へ入力箇所を移動してこれを繰り
返していくという機能のものです。
長々とすいませんが、再度ご回答して頂けると助かります。
No.2
- 回答日時:
こんにちは、
読んでみると、だた、セルに普通に数字を入れたほうが
良い様な、、、
わざわざ、ユーザーフォームを利用する意味が
見えません。
普通に
1.選択セル上でダブルクリック
普通にセルをダブルクリック
2.ユーザーフォームが立ち上がる
省略、
3.ユーザーフォームの項目に値を入力
省略
4.コマンドボタンを押すと、入力した値が1で選択したセルに転送
選択したセルに値を入れる。
5.次に1の1行下のセルに移動し、また値を入力しコマンドボタンで
値を転送 以下5の繰り返し
選択セルに値を入れたら、リターンで、一行したのセルに移動。。
結果は、どのように、違うのですか。??
この回答への補足
アドバイスありがとうございます。
文章が長くなるのもどうかと思い、かなり省略して質問しました。
「わざわざ、ユーザーフォームを利用する意味が見えません。」
これは、ワークシートが全部で4枚あり、そのシートのそれぞれの
項目にユーザーフォームから一度に値を転送しようと考えています。
その際に、あるワークシートの基準となるセルの番地を取得し、
その番地からそれぞれのワークシートの何行目の何列目に値を転送
するべきかをプログラムしたいと考えてです。
確かにそれぞれに値を直接入力する方が良いのかも知れませんが、
シート・入力位置の選択をする手間を省けたらと思っています。
よい方法がありましたら、再度ご回答して頂けたら助かります。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
初めて自分の家と他人の家が違う、と意識した時
子供の頃、友達の家に行くと「なんか自分の家と匂いが違うな?」って思いませんでしたか?
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・【お題】絵本のタイトル
- ・【大喜利】世界最古のコンビニについて知ってる事を教えてください【投稿~10/10(木)】
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・ハマっている「お菓子」を教えて!
- ・最近、いつ泣きましたか?
- ・夏が終わったと感じる瞬間って、どんな時?
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・都道府県穴埋めゲーム
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【Excel】指定したセルの名前で...
-
ExcelVBAを使って、値...
-
i=cells(Rows.Count, 1)とi=cel...
-
EXCELで変数をペーストしたい
-
エクセルVBAでコピーして順...
-
screenupdatingが機能しなくて...
-
【VBA】指定したセルと同じ値で...
-
クリックされたセルの位置を取...
-
Excel VBA頭文字検索方法につい...
-
”戻り値”が変化したときに、マ...
-
Excel-VBA セルのデータ書出し
-
プラスの数をマイナスにしたい...
-
TODAY()で設定したセルの日付...
-
特定のセルが空白だったら、そ...
-
VLOOKUP関数で別ファイルを指定...
-
引数のリセットと図形の変更
-
【Excel】セルの背景色、文字色...
-
Application.Matchで特定行の検索
-
エクセルのVBAのコード内で指定...
-
エクセルの参照先セルの選択に...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ExcelVBAを使って、値...
-
i=cells(Rows.Count, 1)とi=cel...
-
特定のセルが空白だったら、そ...
-
Excelで指定した日付から過去の...
-
【Excel VBA】指定行以降をクリ...
-
EXCELで変数をペーストしたい
-
Excelのプルダウンで2列分の情...
-
【Excel】指定したセルの名前で...
-
Excelシートのあるセルから値を...
-
特定の文字を条件に行挿入とそ...
-
セル色なしの行一括削除
-
連続する複数のセル値がすべて0...
-
指定した条件で行セルを非表示...
-
vba 隣のセルに値がある行だけ...
-
Application.Matchで特定行の検索
-
Excel vbaで特定の文字以外が入...
-
TODAY()で設定したセルの日付...
-
EXCELのVBA-フィルタ抽出後の...
-
【VBA】指定したセルと同じ値で...
-
”戻り値”が変化したときに、マ...
おすすめ情報