エクセルマクロ 達人養成塾 オンライン講座 質問と回答

無料・有料のオンライン講座で 寄せられたメッセージの一部を紹介致します。

[8238]エクセル画面でメニューを選択できない場合の対処法

2017-05-26 15:29:21 ゲストさんからの投稿です。

お世話になっています。
下記のプログラムで実行しましたが、実行後の結果はプログラムが動いていない。
何が問題なのでしょうか? 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

[ 続きを読む ]  返信件数:1件  [ 動画を見る] 

[8232]エクセル画面でメニューを選択できない場合の対処法

2017-05-26 11:29:09 受講生さんからの投稿です。

> 下記 subプログラムのsub 転記()の中でVlookup関数を
> マクロでプログラムする場合、"Set 検索する値 = Range("A" & i * 5 + 12).Value"の行で"オブジェクトが必要
> です”のエラーメッセージがでました。
> 何が問題か教えてください。
>
> sub プログラム
> =======================================
> 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
>
> 抽出
>
>
> End With
>
>
>
> Next
>
> End Sub
>
> Sub 抽出()
>
>
>
> Dim 検索する値 As Range, 検索する範囲 As Range
> Dim 検索結果1 As String, 検索結果2 As String, 検索結果3 As String, 検索結果4 As String
> Dim データベースシート As Worksheet
>
> Set データベースシート = Worksheets("BrooksItemDatabase")
> Set 検索する値 = Range("A" & i * 5 + 12).Value
> Set 検索する範囲 = Range(データベースシート.Range("A2"), データベースシート.Range("G700"))
>
> 検索結果1 = Application.WorksheetFunction.VLookup(検索する値, 検査する範囲, 5, False)
> 検索結果2 = Application.WorksheetFunction.VLookup(検索する値, 検査する範囲, 7, False)
> 検索結果3 = Application.WorksheetFunction.VLookup(検索する値, 検査する範囲, 6, False)
> 検索結果4 = Application.WorksheetFunction.VLookup(検索する値, 検査する範囲, 3, False)
>
> Worksheets("Invoice UK").Range("A" & i * 5 + 13).Value = 検索結果1
> Worksheets("Invoice UK").Range("A" & i * 5 + 14).Value = 検索結果1
> Worksheets("Invoice UK").Range("E" & i * 5 + 12).Value = 検索結果1
> Worksheets("Invoice UK").Range("H" & i * 5 + 12).Value = 検索結果1
>
>
>
> End Sub
>

[ 続きを読む ]  返信件数:1件  [ 動画を見る] 

[7011]ハナコのステップ

2016-09-07 12:50:12 受講生さんからの投稿です。

きちんと理解してないと実際にマクロを組んだ時に混乱しそうだなと思いました。引き続き基礎編、勉強したいと思います。

[ 続きを読む ]  返信件数:1件  [ 動画を見る] 

[6825]Visual Basic Editorのウィンドウサイズをアクティブにできない etc

2016-07-05 21:10:36 受講生さんからの投稿です。

エクセルサンプルを開き、開発コード画面を開くとき、本体と同時に画面表示ができません。開発コードをクリックすると、どうしても本体画面が消えますが?
動画みたいな表示とはなりません?

[ 続きを読む ]  返信件数:1件  [ 動画を見る] 

[6736]ハナコのステップ

2016-06-14 08:55:37 受講生さんからの投稿です。

上から順じゃない!
上から順じゃない!

[ 続きを読む ]  返信件数:1件  [ 動画を見る] 

[6734]Insertキーを押してしまったことで生じる問題

2016-06-14 07:59:39 受講生さんからの投稿です。

ワードでたまにこの現象をやらかしました
そういうことだったんですね
いつも閉じて、もう一回開いたらなおしてました
うっかりInsertキーを押してしまっていたか・・・

[ 続きを読む ]  返信件数:1件  [ 動画を見る] 

[4471]初心者がやってしまいがちな問題とその対処法 - 導入

2015-06-09 05:45:39 受講生さんからの投稿です。

あるエクセル文書を開いて、マクロを作成し、保存しました。その保存したマクロを、別の文書を開いて使いたいのですが、マクロの実行を選択しても、以前作ったマクロが出てきません。

[ 続きを読む ]  返信件数:1件  [ 動画を見る] 

[2737]初心者がやってしまいがちな問題とその対処法 - 導入

2014-10-15 17:09:32 受講生さんからの投稿です。

この講座がエクセルマクロ理解への最初の登竜門であると、書いていました。
投げ出す事なく、継続して取組んで行きます。宜しくお願いします。

余談ですが、セル内の文字記載に慣れていると、改行の際、Ctrlキーを押してしまいます。
EneterキーのみでOKなのですね。

[ 続きを読む ]  返信件数:2件  [ 動画を見る] 

[2006]初心者がやってしまいがちな問題とその対処法 - 導入

2014-08-19 17:08:29 受講生さんからの投稿です。

Range("a2").Value = "○" 行を変えた時に正確に打てているかを判断するために、全て小文字で入力してはいけないのでしょうか。()の中のAだけシフトで大文字に入力するのですか。非効率のような気がしてきました。

[ 続きを読む ]  返信件数:3件  [ 動画を見る] 

[906]ショートカットキーやアクセラレータキーでVisual Basic Editorを操作できない

2014-01-04 09:49:30 受講生さんからの投稿です。

アクセレータキーが動かない時の対処法が全角半角キーで対処できたんですね~

[ 続きを読む ]  返信件数:1件  [ 動画を見る] 

[5]初心者がやってしまいがちな問題とその対処法 - 導入

2013-04-24 18:26:21 受講生さんからの投稿です。

ここで、コメントを書く。
改行も、とりあえず入れておく。
サンプルの様にな量に、ディレクティブも入れておく。

sub sample()
    range("a1").value=3
end sub

これでどうだ。

[ 続きを読む ]  返信件数:0件  [ 動画を見る] 


各講座ごとのメッセージを見る場合はこちら

 

まずはここから!スマホでも学べる無料動画講座

今なら先着30名限定で無料!定価4,800円の、初心者のためのエクセルマクロ動画講座。
  1. Excel 97~Excel 2016まですべて対応。動画本数20本、総再生時間2時間44分53秒
  2. PC, Mac, iPhone, iPad, Androidのお好みの環境で、いつでも好きなときに学べます。
2004年から10年間述べ3,000名以上に実施した研修の経験と実績を集約した講座です。
いますぐ無料で試してください。

トップへ