質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.53%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Q&A

3回答

874閲覧

VBA自動入力処理ができません。。。

YUTO0330

総合スコア0

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

0グッド

0クリップ

投稿2023/03/29 15:20

編集2023/04/12 13:47

イメージ説明
イメージ説明

実現したいこと
添付写真1枚目のシートの列情報を改行して一列ずつ追加済みのシートの指定箇所に転記したい。

VBAで自動化を図って100件の自動入力を行いたいのです。現在データ量に対するシートの作成はできてます。
ただデータのコピーペーストがうまくいかず
下のプログラムだと一番左のシートの該当箇所に入力されるのみで一つずつシートが切り替わって入力繰り返しという動きになりません。

1、2、3、4、5、、、のGIDを
アカウントとIDの指定のセルに1
アカウントとID(2)の指定のセルに2と
転記するにはあと何が足りないのでしょうかご教授いただけないでしょうか?
データ総量変更可能性があるためデータ量指定したfor文では作りたくないのですが可能でしょうか?

申し訳ございませんがどなたかご教授いただけますと幸いです。イメージ説明

該当のソースコード

Sub ボタン4 Click()
Dim 行数 As Long
変数「行数」を作成
Dim 最終行 As Long
変数「最終行」を作成
Dim sheet no As Long
"コピー先シート番号
Dim sheet name As String
コピー先シート名
Dim sh1 As Worksheet
"Sheeti
Application.ScreenUpdating = False
・画面を止める
Set shl = Worksheets ("sheet!")
最終行 = Cel Is (Rows.Count,
sheet no = I
“A").End(x1Up) ROw最終行取得
For 行数 = 1 To 最終行
"最終行まで繰り返し
sheet name =
アカウントとID
& sheet no
Horksheets(アカウントと10”).Cells(27,
• 4). Value = shl.Cells(1]#t, 1). Value
sheet no = sheet no + 1
Next 行数
Application.ScreenUpdating = True #7.$
wseBox
”転記終了しました’’

End Sub

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

pig_vba

2023/04/03 00:40 編集

現状恐らく環境違いによる文字化け?当の要因でコードが正しい状態になっていない(変数sheet noのように間にスペースがあり不成立、コメントアウトがないので全部コード扱い、shl.Cells(1]#t, 1)等謎の文字が追加されている)ため、回答者側で検証が難しい状態になっており回答が難しくなっています。コードを修正の後、コード部分をマークダウンのコード挿入``` で括って更新していただけますでしょうか。 Horksheets(アカウントと10”).Cells(27, • 4). Value = shl.Cells(1]#t, 1). Value ↓こう? Worksheets("アカウントとID").Cells(27,4). Value = shl.Cells(1, 1). Value この部分が先頭シートにすべて転記されてしまっている原因だと思います。 仮に直すなら sheet_name ="アカウントとID(" & sheet no & ")" Worksheets(sheet_name).Cells(27,4). Value = shl.Cells(1, 1). Value こうでしょうか?
guest

回答3

0

こういうことですかね?

VBA

1Sub ボタン4_Click() 2 3Dim 行数 As Long '変数「行数」を作成 4Dim 最終行 As Long '変数「最終行」を作成 5Dim sheet_no As Long 'コピー先シート番号 6Dim sheet_name As String 'コピー先シート名 7Dim sh1 As Worksheet 'Sheet1 8 9Set sh1 = Worksheets("sheet1") 10 11最終行 = sh1.Cells(Rows.Count, 1).End(xlUp).Row 12sheet_no = 1 13 14For 行数 = 2 To 最終行 '最終行まで繰り返し 15 sheet_name = "アカウントとID (" & sheet_no & ")" 16 Worksheets(sheet_name).Cells(27, 4).Value = sh1.Cells(行数, 1).Value 17 sheet_no = sheet_no + 1 18Next 行数 19 20MsgBox "転記終了しました" 21 22End Sub

画像があまり読み取れずわかりませんでしたが、エラーで「インデックスが有効範囲にありません」と出ていませんでしたか?
シート名がうまく取得できていなかったのではないでしょうか。

投稿2023/04/12 04:47

Black_Velvet

総合スコア47

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

0

こんな感じでどうでしょうか。

VBA

1Sub ボタン4_Click() 2Dim 行数 As Long 3'変数「行数」を作成 4Dim 最終行 As Long 5'変数「最終行」を作成 6Dim sheet_no As Long 7'コピー先シート番号 8Dim sheet_name As String 9'コピー先シート名 10Dim sh1 As Worksheet 11'Sheet1 12Application.ScreenUpdating = False 13'画面を止める 14Set sh1 = Worksheets("sheet1") 15最終行 = sh1.Cells(Rows.Count, 1).End(xlUp).Row 16sheet_no = 1 17For 行数 = 1 To 最終行 18'最終行まで繰り返し 19sheet_name = "アカウントとID (" & sheet_no & ")" 20Worksheets(sheet_name).Cells(27, 4).Value = sh1.Cells(行数, 1).Value 21sheet_no = sheet_no + 1 22Next 行数 23Application.ScreenUpdating = True 24MsgBox "転記終了しました" 25 26End Sub

投稿2023/04/09 03:27

編集2023/04/09 03:28
jinoji

総合スコア4585

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

0

ソースコードはAIによる自動判別してテキスト化したものでしょうか?
全く意味の分からない物になっています。
ゆえにどうしたいのかもはっきり分かりません。
修正をお願いします。

投稿2023/04/07 04:10

Black_Velvet

総合スコア47

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

まだベストアンサーが選ばれていません

会員登録して回答してみよう

アカウントをお持ちの方は

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.53%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問