おはようございます。この行にはテキストボックス、入力規則は設定していますが、それ以外設定していないと思いますが、何のテーブルかよくわかりませんいます。
Private Sub CommandButton1_Click()
Dim shoukeng
Dim r As Range, C As Range
Dim g As Integer
shoukeng = ListBox1.List(ListBox1.ListIndex, 0)
With ActiveSheet
Set r = .Range(.Cells(1, "e"), .Cells(Rows.Count, "e").End(xlUp)) _
.Find(What:=shoukeng, LookIn:=xlValues, LookAt:=xlWhole, After:=Cells(Rows.Count, "e").End(xlUp))
End With
If Not r Is Nothing Then
With r.End(xlDown)
'---------------------------------------
.Offset(, -4).Resize(, 26).Copy
.Offset(, -4).Insert Shift:=xlDown (ここでエラーになります。 1004 テーブル内でセルをシフトしようとしているので許可されません。)
Application.CutCopyMode = False
For Each C In .Offset(, -4).Resize(, 26)
If Not C.HasFormula Then C.Value = ""
Next
End With
End If
End Sub
No.2ベストアンサー
- 回答日時:
No1です。
>よろしくお願いいたします。
何の説明もなしであ~したい、こ~したいと言われても、さっぱりわかりません。
(未だに、テーブルを扱っているのかすら不明)
エスパー的に、当たるも八卦でよければ・・
Withの中で
.ListObject.ListRows.Add .Row
とでもしておけば、その近辺でテーブルに1行挿入されるのではないでしょうか?
>nは行番号でよいのですか?。
テーブル内の行番号です。
どこにテーブルがあるのか知りませんけれど、タイトル行がある場合はその次が1行目。
レファレンスのリンクを貼っておいたはずなので、そちらの解説を読んでください。
No.1
- 回答日時:
こんにちは。
前提条件の説明もなくコードだけなので、何をしたいのかもはっきりとはしませんけれど・・
状況から想像するところ、テーブルとして定義されている表内の1セルに対して挿入(=シフトダウン)しようとしてエラーになっているのではないでしょうか?
(テーブルなので、表形式が崩れてしまう操作をしようとしているという意味です)
指定セルがテーブル内なのなら
セル.ListObject
で、テーブルが取得できますので、そのテーブルに対して、1行分を挿入したいのなら
ListObject.ListRows.Add n
で、行の挿入をしてください。(nは挿入位置のインデックス)
https://docs.microsoft.com/ja-jp/office/vba/api/ …
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) マクロで列を加えたら上手くいかなくなりました。 2 2022/05/23 17:59
- Excel(エクセル) excel でグループの最後に行を追加。 3 2022/06/14 13:14
- Visual Basic(VBA) オブジェクトが見つかりません 1 2023/06/24 19:43
- Visual Basic(VBA) ユーザーフォームに2つのコンボボックス銀行名「ConboBox1」支店名を「ConboBox2」とし 4 2022/08/03 17:34
- Visual Basic(VBA) 形式を選択して貼り付け 以下のコードで「元」シートと「先」シートのA列に同じ値があったら指定範囲をコ 5 2022/11/11 07:30
- Excel(エクセル) 日付で矢印マクロ 4 2023/07/25 16:47
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/01/11 08:33
- Visual Basic(VBA) vbaを早くしたい 5 2022/09/09 10:58
- Visual Basic(VBA) 2つのシートの任意のセルの番号が一致したら、一致した行をコピーする VBA 2 2023/06/19 20:48
- Excel(エクセル) マクロで行を追加、削除すると行位置がずれますが、解決方法はありませんか?。 5 2022/05/28 16:03
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
お金持ちのテーブル
-
スーパーコンピュータや量子コ...
-
【エクセル】データテーブルの...
-
オーダーの覚え方について
-
L2SWはARPテーブルを持っている?
-
正規化
-
データベースの接続に失敗して...
-
ちょっとぐらいの時間なら里山...
-
オープンオフィスでのテーブル...
-
テーブルデータのエクスポート...
-
風水で丸いテーブルはあまりよ...
-
複雑なSQL文について
-
Accessのリンクテーブルマネー...
-
食事の勘定を自席にて清算する...
-
テーブルの凸凹の修復
-
SQLについて質問です。 テーブ...
-
このテーブルで
-
今度同じサークルだった女の子...
-
The guest insisted ___changin...
-
SQL 外部結合
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
会社の飲み会の幹事になり、座...
-
テーブルリンク リンク元を知...
-
L2SWはARPテーブルを持っている?
-
テーブルの白く剥がれてるところに
-
飲み会で、座敷orテーブルどち...
-
まるいテーブル 円い 丸い 漢字...
-
1つのテーブルに同じデータを参...
-
このテーブルで
-
置き配された食べ物を袋からど...
-
外部キーだけのテーブル(主キ...
-
【PHP】SQL文のSUM関数で出力し...
-
「テーブルに座って……」という...
-
男性と2人で飲食店に行きテーブ...
-
アクセスのリンクテーブル一覧...
-
一致するデータのみ削除したい
-
論理名とコメント構文(?)について
-
ACCESSで3ファイルを結合して、...
-
MySQLで複数テーブルを作成する
-
複数テーブルにわたるCOUNT
-
SQL 外部結合
おすすめ情報
fujillinさんこんにちは、早速の回答ありがとうございます。
変な質問で申し訳ありません。色々助かっていますテキストボックスで、選んだ行に一致するグループの最後に同じ書式で計算式は残して、コピーして追加する処理を考えています。
nは行番号でよいのですか?。色々やってもなかなかうまくいきません。今のマクロをどう直したら良いか、かなりわからなくなりました。ようやく”c”グループ名が入っているところを基本にしてテキストボックスで選択したものと一致したグループの最後の行を取り出し選択して、コピーのところで出来ない所です。よろしくお願いいたします。