- 締切済み
エクセルで任意の順番にて入力をしたいのですが・・・
ka_na_deの回答
- ka_na_de
- ベストアンサー率56% (162/286)
＃２です。 セル名の手入力は苦痛な作業ですよね。 そこで、別のコードにしてみました。 Private Sub Worksheet_Change(ByVal Target As Range) Dim Target_Cell Dim i As Integer Target_Cell=Array("$A$1", "$B$2", "$C$3", "$D$4", "$E$5") For i = LBound(Target_Cell) To UBound(Target_Cell) If Target.Address = Target_Cell(i) Then Range(Target_Cell(i + 1)).Select Exit For End If Next i End Sub 300のセルのデータの編集方法を紹介します。 １）記録マクロで300個のセルをCtrlキーを押しながら選択 ２）でてきたコードの中でF11,F16,F14,F13,G14,G16といった部分を「コピー」 ３）エクセルの適当なセルをクリックし、上部の数式バーをクリックして、 「=」を入力後に「貼り付け」 ４）=F11,F16,F14,F13,G14,G16 となっていると思いますので、数式を全てドラッグで選択 ５）「F4」キーを押して、絶対参照に変換 ６）「=」以外の「$F$11,$F$16,$F$14,$F$13,$G$14,$G$16」を「コピー」 ７）上記コードの Array(" ")の中に「貼り付け」 ８）「編集」→「置換」で「,」を「","」に変換 以上です。 300もあると大変でしょうが、がんばってください。 Array（）内が膨大な長さになりますが、半角スペースとアンダーバーを 入れれば改行して見やすくできます。
関連するQ&A
- エクセルのマクロ
セルの値が変わったら動くマクロですが、2つ書くとエラーが出ます。 どのように直したらいいでしょうか？ Private Sub Worksheet_Change(ByVal Target As Range) Select Case Target.Address If Intersect(Target, Range("EK22")) Is Nothing Then Exit Sub Else Range("EK24:EM28").Select Selection.ClearContents End If End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("EK24")) Is Nothing Then Exit Sub Else Range("EK27:EM28").Select Selection.ClearContents End If End Sub
- ベストアンサー
- Excel（エクセル）
- ＥＸＣＥＬマクロでのシート間のデータ同期方法
質問させていただきます。 ＥＸＣＥＬにて、"シート１"のA1～C3と"シート２"のD4～F6を 同期化したく考えております。 ・いわゆる一方のシートが「読み取り専用」になってしまうリンク貼り付けではなく、シート1、シート2相互が書き換え可能の同期化です。 ・A1とD4、B3とE6、のように互いに照合箇所のセル同士を同期反映させたいと考えております。 なお、他の質問を参照したところ、 シート１のA1とシート２のD4の単一セルを同期かする方法は確認できました。（以下参照） ***************************************************************** シート１のコードは Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then Worksheets("シート２").Range("D4") = Target End If End Sub シート２のコードは Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$D$4" Then Worksheets("シート１").Range("A1") = Target End If End Sub *************************************************************** これを参考にVBAの シート１のコードエディターに Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$2" Then Worksheets("シート２").Range("D5") = Target End If End Sub シート２のコードエディターに Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$D$5" Then Worksheets("シート２").Range("A2") = Target End If End Sub というように追記していったのですが、エラーとなってしまいます。 お詳しい方がおられましたらお願いいたします。
- ベストアンサー
- オフィス系ソフト
- マクロの疑問
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address <> "A2" Then Range("A2").Select End If End Sub とすると、どのセルを選んでもA2に飛ぶのに、 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "A3" Then Range("A2").Select End If End Sub とすると、A3を選んでも全く移動しないのはなぜでしょうか。 なにか落とし穴がありそうで。。。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- データ更新時の処理について（エクセルＶＢＡ）
セルＡ２に数字の６６が入っているとして、セルＡ２を６７に更新した瞬間に６７－６６という処理をさせたいのですが、下記の？？？の部分が分かりません。どなたか、教えてください。お願いします。 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$2" Then ？？？ End If End Sub
- ベストアンサー
- オフィス系ソフト
- EXCEL 異なるVBA
教えて下さい、EXECL以下の異なるVBA (A>,B>)が２つあります、同じシートでそれぞれ動くようにさせたいです1つに合わせる事は出来ないでしょうか? 当方初心者の為わかりません教えて下さい。 A> Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Address(0, 0, xlA1, 0) <> "A1" Then Exit Sub With Range("F9:I9,K17:K36").Borders(xlDiagonalUp) If Left$(Target.Value, 1) = "S" Then .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic Else .LineStyle = xlNone End If End With End Sub B> Private Sub Worksheet_Change(ByVal Target As Range) With Sheet2 Select Case Target.Address Case Is = "$D$1" .Range("A1").Insert Shift:=xlDown .Range("A1").Value = Target.Value Case Is = "$D$2" .Range("B1").Insert Shift:=xlDown .Range("B1").Value = Target.Value End Select End With End Sub
- 締切済み
- その他([技術者向] コンピューター)
- エクセル マクロを利用して繰り返して入力する方法
マクロでA1B1C1D1E1F1セルに入力しF1入力後A2B2C2D2E2F2と 下方向へ繰り返し800行くらいまで入力し、それとB列はスキップしたいのですが下記の方法で別々のシートでは うまくいくのですが同じシ-ト内ではエラ－になってしまいます 次の行への移動 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 7 Then Cells(Target.Row + 1, 1).Select End If End Sub B列のスキップ Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Range("G1") <> "" Then If Target.Column = 2 Then Target.Offset(0, 1).Select End If End If End Sub どなたかご存じの方教えて下さい
- ベストアンサー
- オフィス系ソフト
- EXCELでセルの変更をしたらマクロを実行
このようなコードを作成しました。 Private Sub Worksheet_Change(ByVal Target As Range) If (Target.Address = "$D$3") Then ★ End If End Sub ★に MsgBox "変更したよ" といれるとちゃんと表示されます。 ですが、 If D9 = "テスト" Then MsgBox "テスト" End if としても何も起こりません。 Call KEISAN のように呼び出すようにしても何も起こりません。 どこがダメなのでしょうか？ よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 再度入力値に戻したい
特定のセル(A1)の入力操作を取り消しA1の元データを別セル(B1)にコピペした後、再度セル(A1)の値を入力値に戻すにはどうしたら良いでしょうか?お教え下さい。 Windows7・SP1 Office2010 Private Sub Worksheet_Change(ByVal Target As Range) If Target.address <> "$A$1" Then Exit Sub Application.EnableEvents = False Application.Undo Range("A1").Select Selection.Copy Range("B1").Select ActiveSheet.Paste Range("A1").Select Application.CutCopyMode = False Application.EnableEvents = True End Sub
- ベストアンサー
- Visual Basic
- 「Excelのセルへの入力内容の転記と元の内容への復帰」
「Excelのセルへの入力内容の転記と元の内容への復帰」 何故それが必要かは別にして、次のようなことがしたい。 ・あるセル（例えばA1）にはある関数（式）が設定されている。 ・いま、セルA1にある値が入力されたとき、 ・その値を別のセル（例えばB1）へ転記（保存）し、 ・セルA1には元の関数に戻す。 これを、VBAで実現するにはどうすれば良いのでしょうか？。お教えください。 changeやselectionchangeイベントなどを使用すると出来そうですが、単純なコーディングではchangeの無限ネスト（無限再帰）となってしまいます。 例えば、次のようなコーディング：セルC1をA1セル選択時の関数保存場所として補助的に使用している。 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "A1" Then Range("B1") = Range("A1") Range("A1").Formula = Range("C1").Formula End If End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "A1" Then Range("C1").Formula = Range("A1").Formula End If End Sub これでは何か発想の転換が必要に思えます。
- 締切済み
- Visual Basic
- Worksheet_changeイベントが動作しない
Private Sub Worksheet_Change(ByVal Target As Range) Select Case Target.Address Case "$D$224" If Target.Value = "" Then Range("D224").Value = "-" End If End Select End Sub DeleteキーでD224をクリアした場合、D224に"-"が入力されません。 D224はD225と結合してあります。 select～caseを使ってdeleteキーで"-"が入力されるような動作を教えてください・・よろしくおねがいします。。。
- ベストアンサー
- オフィス系ソフト
お礼
再度回答いただき有難うございます。 確かに３００有ると大変です。＾＾； 置換とか使うと大分楽になります。 助かりました。有難うございました。