Excel VBA質問箱 IV

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

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


25161 / 76732 ←次へ | 前へ→

【56915】Re:セルの追加の方法
回答  neptune  - 08/7/10(木) 15:29 -

引用なし
パスワード
   ▼kazu さん:
こんにちは

>これでどのようにセルを導入していくのか分かりません・・
導入という用語はExcelにはないと思います。恐らく挿入の間違いでしょうが
第三者の私はほかの可能性も考えて混乱しますので、用語は出来るだけ正確
にお願いします。

'選択したセルに、セルを追加する
Sub Macro1()
  Selection.Insert Shift:=xlDown
End Sub
マクロの記録で以上が作成できます。

で、こんな具合になります。
初心者の方には難しかったかもしれません。
Sub t()
Dim rngbuf As Range
  On Error Resume Next
  '選択
  Set rngbuf = Application.InputBox("セルを選択してください。", "範囲選択", Type:=8)
  If Err.Number = 0 Then
    If Not IsEmpty(rngbuf) Then
      'セルの追加
      rngbuf.Insert Shift:=xlDown
    End If
  ElseIf Err.Number = 424 Then
    MsgBox "キャンセル"
  Else
    MsgBox "予期せぬエラー" & vbCrLf & Err.Number & vbCrLf & Err.Description
  End If
  On Error GoTo 0
  Set rngbuf = Nothing
End Sub

研究してみて下さい。
・・・・と言う私も初めて書いたかも????

>inputboxメソッドを使いましょう。
と紹介したので、上記のように書きましたので、思いの他、ややこしく
なりましたが、セルの選択方法は、ほかにも何種類か方法はあります。

refeditコントロール、TextBoxを使用する方法など・・・・でも
もっとややこしいです。

0 hits

【56879】セルの追加の方法 kazu 08/7/9(水) 14:50 質問
【56882】Re:セルの追加の方法 neptune 08/7/9(水) 15:34 回答
【56911】Re:セルの追加の方法 kazu 08/7/10(木) 14:32 質問
【56915】Re:セルの追加の方法 neptune 08/7/10(木) 15:29 回答
【56969】Re:セルの追加の方法 kazu 08/7/15(火) 13:20 お礼

25161 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free