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

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

[8398]Left関数、Mid関数、Find関数を組み合わせる

2017-06-20 14:53:10 受講生さんからの投稿です。

苗字と名前の間に最初から「/」が入っているのは、わかりやすくするためかとは思いますが、正直とても違和感がありました・・・。
動画では触れられていませんでしたが、提供いただいたExcelファイルの「Myonam_Hankaku」シートで応用練習ができたのは、個人的により実務に即してイメージしやすく良かったです。

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

[8388]エクセルマクロの全体像

2017-06-19 17:07:36 受講生さんからの投稿です。

はじめまして。「パソコンスキルの教科書」というブログからこちらを知りました。

長い間事務系の仕事をしていました。今は事情がありできないでいます。
ずっと「マクロ=難しそう!私は文系だしきっと無理!」と思ってました。
でも一方で「もっとこの仕事楽にできたらいいのにな」と感じることが多々あって。
この機会にさわりでいいから学べたらうれしいです。
「マクロ=こびとちゃん」とたとえてくださり、今後プログラムを書いていて上手くいかずしんどくなっても、頭の中でこびとちゃんがパタパタ走り回っている姿を想像できそうです。ありがとうございます。

それでは。

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

[8374]VLookUp関数、Index関数、Match関数より便利なマクロ-該当する行が見つからない場合の処理をアレンジ

2017-06-18 12:58:19 受講生さんからの投稿です。

【動画24】の問題についてご教示願います(問題添付)
データ転記先の表に該当する氏名が見つからない場合は、転記先表にエラーが出るようにプログラムを作成しました(下記参照)
このプログラムを動かすと、D列に全てエラーが記載されてしまいます。
お忙しい中申し訳ありませんが、マッチングしていない氏名のみエラーが
出るにはどのようにしたら良いかご教示願います。
【回答1】
Sub test1()
Dim saki
Dim moto

For moto = 4 To 31
For saki = 4 To 31

If Worksheets("転記先").Range("B" & saki).Value = Worksheets("元データ").Range("B" & moto).Value Then
Worksheets("転記先").Range("C" & saki).Value = Worksheets("元データ").Range("C" & moto).Value

ElseIf Worksheets("転記先").Range("B" & saki).Value <> Worksheets("元データ").Range("B" & moto).Value Then
Worksheets("転記先").Range("D" & saki).Value = "エラー"

End If

Next

【回答2】
Sub test2()
Dim saki
Dim moto

For moto = 4 To 31
For saki = 4 To 31

If Worksheets("転記先").Cells(saki, 2).Value = Worksheets("元データ").Cells(moto, 2).Value Then
Worksheets("転記先").Cells(saki, 3).Value = Worksheets("元データ").Cells(moto, 3).Value
Else
'Worksheets("転記先").Range("D" & saki).Value = "エラー"
End If
Next
Next

End Sub 

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

[8373]エクセルマクロの全体像

2017-06-18 12:41:29 受講生さんからの投稿です。

マクロがとても便利なものだとわかりました。
早く習得したいなとモチベーションが上がりました。

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

[8351]勘定項目ごとに合計額を算出する。SumIf関数がやっていることをマクロで書くと?

2017-06-13 21:45:01 受講生さんからの投稿です。

お世話になります。
下記の記載したprogramと回答のプログラムが、違うことによって不都合が生じることになるのでしょうか?
下記に記載したプロフラムはループの後に出力先を記載せずに、IF文後に
記載しています。実行した場合、回答と同じ値が導いていますが、回答のように、ループ後の出力先を記載することが、いいのでしょうか。
記載したprogramのgoukei の場合は、最終のループ後に記載しています。
そのあたりのことについて、わかりませんでしたので、宜しくお願いします。


[code]Sub rensyu1()
Dim goukei
Dim gyo
Dim migi
Dim hida
Dim syoukei
For gyo = 4 To 9
syoukei = 0
For migi = 4 To 10
If Range("I" & migi).Value = Range("B" & gyo).Value Then
syoukei = syoukei + Range("J" & migi).Value
goukei = goukei + Range("J" & migi).Value
End If
Range("D" & gyo).Value = syoukei
Range("E" & gyo).Value = Range("C" & gyo).Value + syoukei
Next
Next
Range("D10").Value = goukei
Range("E10").Value = Range("C10").Value + goukei
End Sub[/code]

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

[8350]基礎講座第1章1 - マクロの入ったファイルを開くときの注意点

2017-06-13 21:39:58 川上 順子さんからの投稿です。

ID8363 にて対応。

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

[8347]式と戻り値_1

2017-06-12 20:00:00 受講生さんからの投稿です。

ダウンロードしたフォルダ内のA-0、A-1、A-2の違いが分かりません。とりあえずA-0を使用していればいいのでしょうか。

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

[8336]エクセルマクロの全体像

2017-06-11 11:42:01 受講生さんからの投稿です。

現在入門書を読んでいるところですが、こちらは動画なので分かり易いです。
マクロを学ぶメリットが解説してあり、モチベーションが上がりました。

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

[8322]ファイル操作の練習

2017-06-08 18:51:01 受講生さんからの投稿です。

ダウンロードしたサンプルデータなのですが、動画で説明されているものと中身が違うようなのですが…

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

[8321]ファイル操作の練習

2017-06-08 18:51:01 受講生さんからの投稿です。

ダウンロードしたサンプルデータなのですが、動画で説明されているものと中身が違うようなのですが…

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

[8320]ファイル操作の練習

2017-06-08 18:47:34 受講生さんからの投稿です。

ダウンロードしたサンプルデータなのですが、動画で説明されているものと中身が違うようなのですが…

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

[8309]式と戻り値_1

2017-06-07 21:44:02 受講生さんからの投稿です。

お世話になっております。
siryoフォルダ内にA-0、A-1、A-2とあり、同名フォルダや同名ファイルがある場合は、どれを使用すればいいのでしょうか。

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

[8299]苗字と名前を分割して別のセルに投入する

2017-06-05 20:07:56 受講生さんからの投稿です。

Excelが苦手でしたが、とても勉強になりました。

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

[8298]エクセルマクロの全体像

2017-06-05 19:21:04 受講生さんからの投稿です。

わかりやすかったです。
早く使えるようになりたいと思えました。

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

[8291]エクセルマクロの全体像

2017-06-05 07:54:19 受講生さんからの投稿です。

今まで何度かマクロにトライしてきたのですが、難しくマスター出来ませんでした。縁がありこの口座にたどり着いたので、今一度頑張ります。

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

[8290]エクセルマクロの全体像

2017-06-05 00:16:55 受講生さんからの投稿です。

短い時間の中にこれから学習しようとする初学者のモチベーションを上げる内容でした。

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

[8274]基礎講座第1章1 - マクロの入ったファイルを開くときの注意点

2017-05-31 18:43:36 受講生さんからの投稿です。

導入編を受講させていただき、レクチャーが分かりやすいし
コビトちゃんの絵がかわいいので基礎編に進むことに決めました。

一通り基礎編が終わったら、自分の今の業務範囲の中で
どこをマクロで解決できるか、精査してみようと思います。
今から楽しみです。

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

[8261]基礎講座第4章9 - If文のその他の構文その1

2017-05-29 13:25:37 受講生さんからの投稿です。

画像データをワークシートに張り付けるマクロを教えてください。

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

[8249]基礎講座第4章10 - If文のその他の構文その2

2017-05-27 18:58:23 受講生さんからの投稿です。

お世話になります。
IF Elseif Endif 文のところで、Kiso_04_03ifThen_drill.xls-[daihon0010(コード)]の練習7の問題は、
If文だとおもうのですが、ヒントにIf...Elseif...Elseif...Else...End Ifを使うようになっているのですが、IF...Else...EndIFじゃないのですか?よくわかりません。

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

[8248]簡単なマクロを書いてみる - プログラムの読み方

2017-05-27 15:36:59 青柳 勝さんからの投稿です。

面白くなって来ました。「.」と「=」の意味はよく頭に入れます。

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

[8247]簡単なマクロを書いてみる - プログラムの読み方

2017-05-27 14:02:18 青柳 勝さんからの投稿です。

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

[8240]転記先シートを生成してデータを流し込む。

2017-05-26 16:21:08 柴田 邦彦さんからの投稿です。

[2]と[3]の問題について質問します。
F8で1行ずつマクロを走らせたときに、
Sheets("template").Copy After:=Sheets(2)
のあとでF5を押したときのように一気に走ってしまします。
なぜでしょうか?
当方だけの現象でしょうか?

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

[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件  [ 動画を見る] 

[8220]エクセルマクロ・VBA「イベントとフォーム」講座の概要

2017-05-26 02:12:04 受講生さんからの投稿です。

本動画中のform_demo.xlsが教材の中にありませんでした。
zipファイル中に動画と同じになるように保存頂けないでしょうか。

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

[8197]基礎講座第4章10 - If文のその他の構文その2

2017-05-24 21:53:44 受講生さんからの投稿です。

お世話になります。
誠に申しわけございませんが、
kiso04_03IFThen_drill.xls-[daihon0010(コード)]の練習問題を
していますが、回答はどこに記載しているのかがわかりません。
教えてください。宜しくお願いします。

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

[8161]タイピング講座 上達のステップ

2017-05-23 21:17:29 受講生さんからの投稿です。

ショートカットキーを使う場合、すなわち、CtrlキーやAltキーを使う場合にはどのように指を使うのがよいのでしょうか?

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

[8149]出現回数を数える。CountIf関数がやっていることをマクロで書くと?

2017-05-22 13:37:42 受講生さんからの投稿です。

Sub nantoka()
Dim goukei
Dim gyo
Dim migi

For migi = 4 To 6
goukei = 0
For gyo = 4 To 18
If Range("C" & gyo).Value = Range("E" & migi) Then
goukei = goukei + 1

End If
Next
Range("F" & migi).Value = goukei
Next
End Sub

お世話になります。
Range("F" & migi).Value = goukei
のプログラムを書くときに、
NextとNextの間に書くことが、
自力で書くときに迷います。
homeshift↓↓↓で選択するとき
最初のForNext構文が完成させたときに、
出力先を書くことで、別物と判断している
みたいで、ワンポイントアドバイス
よろしくおねがいします。

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

[8148]エクセルマクロの全体像

2017-05-21 22:44:55 受講生さんからの投稿です。

相馬一進さんのお金の心理学で知りました。
エクセルマクロという言葉は知っていたけれど、実際どのようなものか全く知らなかったので動画を見てびっくりしました。
現在、パートで事務の仕事をしていますがPCに長けた人材が居なく、見よう見真似で上司が作ったエクセルに入力・・・しかも無駄と思われる作業の多さと、関数の間違いなどで日々ストレスです。
動画を見て、マクロで解決できるかも!と思いました。

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

[8145]エクセルマクロの全体像

2017-05-19 10:13:13 ゲストさんからの投稿です。

分かりやすい!
これがこの動画を見た時の一番の感想です

次も早く見たい!のですぐ次を見たいと思います
素晴らしい動画をありがとうございます

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


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

 

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

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

トップへ