パソコン仕事5倍塾
35,000人を指導した東大卒・元日本IBM社内講師が直伝
MENU
ゲストさんの投稿
(投稿ID: 3117)
小川慶一さんのコメント
(コメントID: 4562)
外部アカウントで登録
たった1ヶ月で人生が劇的に変わりました
佐藤信さん
役員クラスの方から高い評価を受けるようになりました。
佐賀県 - 岩本徹さん
今までまったく知らなかったショートカットキーを使いまくっています。
東京都 - 鷹觜慶さん
年齢60才間近、営業で外回りの時間が多い私でも退社時間が1-2時間程度早くなりました。
東京都 - 宗内隆明さん
受講前もすでにパソコン得意でしたが、そんな私でも受講して本当に良かったと思えた講座です。
東京都 - 佐伯とも子さん
ここまで包括的に仕事に役立つ深い学びを受けれた講座は初めてでした
東京都 - 飯田倫子さん
2024年04月27日 15:36
2024年04月25日 07:00
2024年04月23日 21:36
2024年04月23日 10:01
2024年04月22日 03:23
2024年04月27日 15:54
2024年04月26日 18:49
2024年04月24日 06:55
2024年04月24日 06:52
2024年04月24日 06:50
2022年02月24日 10:59
2019年12月23日 05:57
2019年09月20日 12:29
表示できる投稿はありません。
この学習サイトの教材制作、サポート、システム開発をすべてやっています。
2022年02月02日 00:00
2022年02月02日 03:00
2022年02月02日 06:00
2022年02月02日 09:00
2022年02月02日 12:00
2024年02月15日 18:30
2024年02月09日 17:05
2024年01月19日 13:00
2023年12月31日 17:00
2023年12月21日 14:00
2024年04月27日 23:02
2024年02月28日 14:53
2024年02月27日 14:27
2024年02月27日 14:21
2024年02月27日 14:15
ゲストさんの投稿
(投稿ID: 3117)
下記のプログラムで実行しましたが、実行後の結果はプログラムが動いていない。
何が問題なのでしょうか? sub matching()が動きません。
下記 sub InvoiceUK転記()を添付します。
=======================================
Sub InvoiceUK転記()
Dim i As Integer
Dim 最終行 As Integer
最終行 = Worksheets("出荷一覧UK").Range("A1").End(xlDown).Row
For i = 3 To 最終行
With Worksheets("Invoice UK")
.Range("A" & i * 5 + 11).Value = Worksheets("出荷一覧UK").Range("A" & i).Value
.Range("A" & i * 5 + 12).Value = Worksheets("出荷一覧UK").Range("B" & i).Value
製品名 = .Range("A" & i * 5 + 12).Value
.Range("F" & i * 5 + 12).Value = Worksheets("出荷一覧UK").Range("C" & i).Value
matching
End With
Next
End Sub
Sub matching()
Dim data
For data = 2 To 700
If Worksheets("Invoice UK").Range("A" & i * 5 + 12).Value = Worksheets("BrooksItemDatabase").Range("A" & data) Then
Worksheets("Invoice UK").Range("A" & i * 5 + 13).Value = Worksheets("BrooksItemDatabase").Range("E" & data).Value
Worksheets("Invoice UK").Range("A" & i * 5 + 14).Value = Worksheets("BrooksItemDatabase").Range("G" & data).Value
Worksheets("Invoice UK").Range("E" & i * 5 + 12).Value = Worksheets("BrooksItemDatabase").Range("F" & data).Value
Worksheets("Invoice UK").Range("H" & i * 5 + 12).Value = Worksheets("BrooksItemDatabase").Range("C" & data).Value
End If
Next
End Sub
小川慶一さんのコメント
(コメントID: 4562)
> 下記のプログラムで実行しましたが、実行後の結果はプログラムが動いていない。
「実行した」なら、「プログラムは動いた」はずです。
日本語がおかしいか、現象に対する理解がおかしいです。
動作テスト方法の基本を以下で解説しています。
まずはこれらを見てください。
【動画10】 基礎講座第1章10 - 自動データヒント機能
【動画11】 基礎講座第1章11 - テストの方法
https://forum.pc5bai.com/lesson/course/25
↑
各動画で、その動画に関連した質問をされている方とのやりとりも載せています。あわせて参考にしてください。
それからステップイン実行しつつエクセル画面を都度確認し、としていき、どの行を実行しようとするタイミングで予定外の挙動をしているか?を確認ください。
それで分からなければ、問題の状況になっているときの変数値をすべて書き出して投稿してください。
あと、質問はどの動画の投稿画面にしてもよいというものではありません。
その話題に関連する動画のコメント欄にお願いします。(そのほうが、ほかの方の学びにもなりますので)
よろしくお願いいたします。
> お世話になっています。
> 下記のプログラムで実行しましたが、実行後の結果はプログラムが動いていない。
> 何が問題なのでしょうか? sub matching()が動きません。
>
> 下記 sub InvoiceUK転記()を添付します。
>
> =======================================
> Sub InvoiceUK転記()
>
>
> Dim i As Integer
> Dim 最終行 As Integer
>
>
> 最終行 = Worksheets("出荷一覧UK").Range("A1").End(xlDown).Row
>
>
> For i = 3 To 最終行
>
>
> With Worksheets("Invoice UK")
>
>
>
> .Range("A" & i * 5 + 11).Value = Worksheets("出荷一覧UK").Range("A" & i).Value
> .Range("A" & i * 5 + 12).Value = Worksheets("出荷一覧UK").Range("B" & i).Value
> 製品名 = .Range("A" & i * 5 + 12).Value
> .Range("F" & i * 5 + 12).Value = Worksheets("出荷一覧UK").Range("C" & i).Value
>
> matching
>
>
> End With
>
>
>
> Next
>
> End Sub
>
> Sub matching()
>
>
> Dim data
>
> For data = 2 To 700
>
> If Worksheets("Invoice UK").Range("A" & i * 5 + 12).Value = Worksheets("BrooksItemDatabase").Range("A" & data) Then
>
> Worksheets("Invoice UK").Range("A" & i * 5 + 13).Value = Worksheets("BrooksItemDatabase").Range("E" & data).Value
> Worksheets("Invoice UK").Range("A" & i * 5 + 14).Value = Worksheets("BrooksItemDatabase").Range("G" & data).Value
> Worksheets("Invoice UK").Range("E" & i * 5 + 12).Value = Worksheets("BrooksItemDatabase").Range("F" & data).Value
> Worksheets("Invoice UK").Range("H" & i * 5 + 12).Value = Worksheets("BrooksItemDatabase").Range("C" & data).Value
>
> End If
>
> Next
>
>
>
>
> End Sub
>