エクセルマクロオンライン講座 質問と回答

  • このエントリーをはてなブックマークに追加

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

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

ゲストさんからの投稿です。

マクロの便利さが理解でき興味がでました。勉強してみます。ありがとうございます。

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

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

ゲストさんからの投稿です。

前職で、業務支援の部署がマクロを作成し、それを使って事務処理をしていました。自分にはマクロ作成なんて難しいことはできないと思ってしまって、提供されたツールを使うのみでした。

この機会を通じて、自分がマクロを作成して業務支援ができる人材になりたいと思いました。

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

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

ゲストさんからの投稿です。

VBを使って簡単整理!的なことが実際にできるようになりたいです!

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

[7502] 基礎講座第4章3 - 「For Next構文」を覚える

受講生さんからの投稿です。

For Next構文で離れた複数列に同じ処理をしたい場合はどのように記載すればよいでしょうか?
下記のようなソースで、B列のみでなく、D列とE列にも罫線引きたいです。

Sub sample1()
Dim gyo
For gyo = 1 To 5
Range("B" & gyo).Borders.LineStyle = xlContinuous
Next
End Sub



「Range("B" & gyo).Range("D" & gyo).Range("E" & gyo).Borders.LineStyle = xlContinuous」
と記載したらなんだか変な場所に罫線が引かれてしまいました。。。

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

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

受講生さんからの投稿です。

初めてプログラムを書く体験ができて満足しております。引き続き受講したいと思いました。

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

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

ゲストさんからの投稿です。

VBAの得手不得手な分野(どこまでできるかやこんな事はできないなど)が分かると尚良かったと思います。

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

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

ゲストさんからの投稿です。

身につけたいと思います。

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

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

ゲストさんからの投稿です。

10年以上前から知ってはいましたが、手を付けてみようという気持ちにどうしてもなれずここまで来てしまいました。
でも、改めて便利さを知ると身に着けて損はない、むしろ超得できるじゃないか!とちょっと10年前の自分に激おこぷんぷん丸です…。
これからじっくり取り組んでいこうと思います。

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

[7484]

多和田 真也さんからの投稿です。

小川先生

解答送信ありがとうございました。

なんとなく記述方法が理解できましたが、1か所、「これは何をやってるの?」

と感じる部分があります。

最後の行の、

Set dic = Nothing

です。これにはどういう意味があるんでしょうか?


>多和田 真也 さん:
>
>全体に、よくできていると思いますよ。
>問題6については、回答例をお送りしますので、まずはこれを研究してみてください。
>https://www.dropbox.com/sh/u2mwcb6zmnreonb/AAA-4K_w07WnLawEAWFRaqNKa?dl=0
>
>
>
>>小川先生
>>
>>お世話になっております。受講生の多和田 真也(たわた まさや)と申します。
>>
>>正月休みを利用して、上級編動画をすべて3回視聴し、テキスト巻末の課題に取り組んでいるところです。
>>
>>いまだ、配列は難しく感じますが、普段の業務に役に立つ知識だと思うので、なんとか身に着けたい
>>
>>と思っています。
>>
>>配列の課題は、6問中、第5問までは比較的スムーズにできましたが、第6問で引っかかってしまっています。
>>
>>おそらく、A列のすべての行をsplit関数で「,」を境に切り出し、それぞれの一次元配列を、
>>
>>一つの配列に直接格納するようにすればいいのだろうなあ・・・というところまではわかるのですが、
>>
>>それを具体的にどう記述すればよいのか、検討が付かず困っております。
>>
>>
>>おそらく、動画をまた繰り返し視聴していけばいつか理解できる瞬間が来るのでしょうが、とりあえず
>>
>>現時点で書いたマクロをここで提出いたします。第1問はSub test1、第2問はSub test2・・・というように
>>
>>問題番号とSubプロシージャ名の番号を対応させております。
>>
>>第6問の、ヒントを頂けましたらありがたいです。
>>
>>(小川先生の解答を教えていただいてもいいんですが、解答のファイルが付いていないところを見ると、
>>
>>おそらく自力で考えてください、ということなのだと思いますので、自力でできる限り考えてみたいと
>>
>>思っています)
>>
>>どうぞよろしくお願い致します。
>>
>>
>>
>

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

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

ゲストさんからの投稿です。

マクロは便利と聞きますが、具体的に仕事との関連をイメージできません。
ボチボチやっていきます。

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

[7472] 複数の記号の位置を調べて文字列を切り出す

受講生さんからの投稿です。

関数の入れ子を組む際に、毎回トライアンドエラーを繰り返していましたが、内側から1つづつ組み上げていくことで括弧のエラーもなくすんなりと組めることが理解できました。
正直、関数の入れ子を組むのはもう勘弁して欲しいところだったので、今回の経験は目から鱗ものです。
癖として身についてしまっているので、視点を切り替えて今後の業務に生かしていきたいと思います!

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

[7471] 1枚のシート内で12ヶ月を横に並べたカレンダーを作成する

平吹 敦史さんからの投稿です。

小川先生

お世話になっております。
素朴な疑問ですが、月ごとにsheet分けしたカレンダーを作成したのであれば、それをコピーして、
同一シート内に張り付けるマクロをつくれば、もっと簡単に横に並べるカレンダーが作れるのでは?

と、思ってつくりました。

その後、先生の解説動画を見たら、最初から、横に並べるカレンダーを作り始めたので、
どっちかを最初につくれば、どっちかはコピーでいけるのかな?とも思いました。
(どっちかとは、月別sheetが先か横並びが先かという意味です。)

ただ、DPRの考え方でいくと、Dはあくまで最初につくった縦に長い年間カレンダーであり、
月別のsheetにしたのは、Rなので、そこからRをつくるのは良くない、という考え方になる、
ということでいいのでしょうか?
                                        平吹敦史

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

[7470] 1枚のシート内で12ヶ月を横に並べたカレンダーを作成する

平吹 敦史さんからの投稿です。

お世話になっております。
動画の最後で、カレンダーマクロのfileをお渡しする、とあったのですが、そのfileはどこから、
入手すればいいのでしょうか?
発展編1の既入手済みのfileも調べましたが、それらしきfileはありませんでした。
すみませんが、教えていただければと思います。
                                        平吹 敦史

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

[7469]

多和田 真也さんからの投稿です。

小川先生

お世話になっております。受講生の多和田 真也(たわた まさや)と申します。

正月休みを利用して、上級編動画をすべて3回視聴し、テキスト巻末の課題に取り組んでいるところです。

いまだ、配列は難しく感じますが、普段の業務に役に立つ知識だと思うので、なんとか身に着けたい

と思っています。

配列の課題は、6問中、第5問までは比較的スムーズにできましたが、第6問で引っかかってしまっています。

おそらく、A列のすべての行をsplit関数で「,」を境に切り出し、それぞれの一次元配列を、

一つの配列に直接格納するようにすればいいのだろうなあ・・・というところまではわかるのですが、

それを具体的にどう記述すればよいのか、検討が付かず困っております。


おそらく、動画をまた繰り返し視聴していけばいつか理解できる瞬間が来るのでしょうが、とりあえず

現時点で書いたマクロをここで提出いたします。第1問はSub test1、第2問はSub test2・・・というように

問題番号とSubプロシージャ名の番号を対応させております。

第6問の、ヒントを頂けましたらありがたいです。

(小川先生の解答を教えていただいてもいいんですが、解答のファイルが付いていないところを見ると、

おそらく自力で考えてください、ということなのだと思いますので、自力でできる限り考えてみたいと

思っています)

どうぞよろしくお願い致します。


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

[7466] 転記先ファイルを生成してデータを流し込む。

受講生さんからの投稿です。

お世話になっております。
転記先のファイル名について一つ教えてください。
変数にするまでは「sample.xls」と、.xlsが付いていますが、最終的にfnameの変数に置き換え、「n,t,b」などのファイル名の言葉が入ってくるようになると思います。
その際文末に「&".xls"」は着ける必要はないのでしょうか。
ActiveWorkbook.SaveAs Filename:="D:\ks201-205\ks204\ks204_mondai\" & fname _
ActiveWorkbook.SaveAs Filename:="D:\ks201-205\ks204\ks204_mondai\" & fname&".xls" _


Sub ks204_02()
Dim fname
Dim moto
Dim saki
Dim slist
For slist = 4 To 7
fname = Workbooks("ks204.xls").Worksheets("List").Range("C" & slist).Value
Workbooks.Open Filename:="D:\ks201-205\ks204\ks204_mondai\template.xls"
ActiveWorkbook.SaveAs Filename:="D:\ks201-205\ks204\ks204_mondai\" & fname _'ここです。
, FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

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

[7462] 各部署からファイルを回収し、記入済データを手元資料に統合その2

受講生さんからの投稿です。

小川様

お世話になります。
フォローアップ追加分の最後に記入済みデータを手元資料に統合という課題の
最後に追加データもとってくるというのがありますが

小川さんの模範解答には

If Workbooks(filename).Worksheets("歳入").Range("A" & moto).Value <> "" Then



というコードがありますで、そのコードがなくともできるのではないかとおもい
以下のコードを作成しましたが、追記データがとびとびになってうまくいきませんでした。
原因を探ろうとしましたがお手上げです。
ご指導よろしくお願いいたします。


Sub hukusyuu() '

Dim foldername
Dim filename
Dim tuikanyu
Dim tuikasyu
tuikanyu = 52
tuikasyu = 42

Dim gyo
For gyo = 2 To 10

foldername = Workbooks("全部1つ.xls").Worksheets("部署情報").Range("F" & gyo).Value
filename = Workbooks("全部1つ.xls").Worksheets("部署情報").Range("G" & gyo).Value

Workbooks.Open filename:="D:\h引越し\s仕事関係\VBA\f基礎追加フォローアップ解凍ファイル\配布物 最後の課題用に改変\01-課題一式\" & foldername & "\" & filename

Dim moto
Dim saki
Dim mituketa


For moto = 2 To 51 '←ここと(moto)
mituketa = False
For saki = 2 To 51 '←ここ(saki)が逆ではだめ。つまりフラグはあくまでmotoを見に行ったとき、ない場合の処理なので
If Workbooks(filename).Worksheets("歳入").Range("A" & moto).Value = Workbooks("全部1つ.xls").Worksheets("歳入").Range("A" & saki).Value Then
Workbooks("全部1つ.xls").Worksheets("歳入").Range("E" & saki).Value = Workbooks(filename).Worksheets("歳入").Range("E" & moto).Value
mituketa = True
Exit For
End If
Next
If mituketa = False Then
Workbooks("全部1つ.xls").Worksheets("歳入").Range("A" & tuikanyu).Value = Workbooks(filename).Worksheets("歳入").Range("A" & moto).Value
Workbooks("全部1つ.xls").Worksheets("歳入").Range("B" & tuikanyu).Value = Workbooks(filename).Worksheets("歳入").Range("B" & moto).Value
Workbooks("全部1つ.xls").Worksheets("歳入").Range("C" & tuikanyu).Value = Workbooks(filename).Worksheets("歳入").Range("C" & moto).Value
Workbooks("全部1つ.xls").Worksheets("歳入").Range("D" & tuikanyu).Value = Workbooks(filename).Worksheets("歳入").Range("D" & moto).Value
Workbooks("全部1つ.xls").Worksheets("歳入").Range("E" & tuikanyu).Value = Workbooks(filename).Worksheets("歳入").Range("E" & moto).Value
tuikanyu = tuikanyu + 1
End If
Next


For moto = 2 To 41
mituketa = False
For saki = 2 To 41
If Workbooks(filename).Worksheets("歳出").Range("A" & moto).Value = Workbooks("全部1つ.xls").Worksheets("歳出").Range("A" & saki).Value Then
Workbooks("全部1つ.xls").Worksheets("歳出").Range("E" & saki).Value = Workbooks(filename).Worksheets("歳出").Range("E" & moto).Value
mituketa = True
Exit For
End If
Next
If mituketa = False Then
Workbooks("全部1つ.xls").Worksheets("歳出").Range("A" & tuikasyu).Value = Workbooks(filename).Worksheets("歳出").Range("A" & moto).Value
Workbooks("全部1つ.xls").Worksheets("歳出").Range("B" & tuikasyu).Value = Workbooks(filename).Worksheets("歳出").Range("B" & moto).Value
Workbooks("全部1つ.xls").Worksheets("歳出").Range("C" & tuikasyu).Value = Workbooks(filename).Worksheets("歳出").Range("C" & moto).Value
Workbooks("全部1つ.xls").Worksheets("歳出").Range("D" & tuikasyu).Value = Workbooks(filename).Worksheets("歳出").Range("D" & moto).Value
Workbooks("全部1つ.xls").Worksheets("歳出").Range("E" & tuikasyu).Value = Workbooks(filename).Worksheets("歳出").Range("E" & moto).Value
tuikasyu = tuikasyu + 1
End If
Next

Workbooks(filename).Close
Next

End Sub


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

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

ゲストさんからの投稿です。

マクロとは・・・。凄すぎる機能ですね。
勉強したら仕事の効率アップ間違いなしです。
御礼!

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

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

野口綾さんからの投稿です。

全体像をつかむには分かりやすい内容でした。
面白そうなので次のステップに進みたくなります。

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

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

受講生さんからの投稿です。

全体像がわかりやすくて、すばらしい講座だと思いました。引き続き、学習させて頂きます。

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

[7444] 補講:複数ファイル間でのデータ転記

受講生さんからの投稿です。

実務でもほかのファイルから情報を拾って埋めてまたさらに別のファイルからといくつものファイルを参照して再集計になるマクロを実行しています。どうやってやるのか不思議でしたが、なんとなくわかりました。

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

[7434]

受講生さんからの投稿です。

発展編1 フォローメールセミナー 第11回
作ってみました。よろしくお願いします。ソートの部分で.AutoFilterとしてますが第9回の時には「Worksheets("main").Range("A1").AutoFilter '←不要では?」とコメントいただきました。
その部分が無いとうまく動かないので正しい方法がわかりません。また、印刷時に数枚に分割するときもどのようにしたらよいものか...
ご指導よろしくお願いします。

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

[7430] 各資料ごとに1番からの番号を割り振る。AutoFill機能より便利なマクロ

受講生さんからの投稿です。

if、elseを使って問題を解いてみました。
変数はfor next 構文の外で設定していれば、構文の下のコードには反映されないと勝手に思っていたのですが、
nextの下にコードを書いても、変数リセットの指示を小人ちゃんに出さなければ元に戻らないんですね!

Sub rensyu2()    
Dim ban
Dim gyo
Dim cno
ban = 0
cno = 1
For gyo = 4 To 19
If Range("D" & gyo).Value <> Range("D" & gyo - 1).Value Then
ban = ban + 1
cno = 1
Else
cno = cno + 1
End If
Range("B" & gyo).Value = ban
Range("C" & gyo).Value = cno
Next

End Sub

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

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

ゲストさんからの投稿です。

業務でマクロを利用していて、自分でも作成しているので、大体は理解出来ると思っています。見やすくわかりやすいソースにする為のコツやルール決め等が知りたいです。

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

[7423] 複数の表の間でのマッチング。VLookUp関数がやっていることをマクロで書くと?

受講生さんからの投稿です。

お世話になっております。一つこの例題について伺いたいことがあります。
もし、キャンペーン応募が同じ人から複数件あったとして、左の表の同じセルに「、」を打って複数件足していくような場合を想定して下記のようなコードを書きました。
しかし、F5で実行を押すたびに左の票の数が足されていってしまいます。修正箇所としてどの点を直せばよろしいでしょうか。
ご教授宜しくお願い致します。

Sub sakusei()
Dim hida
Dim migi
Dim goukei

For migi = 11 To 23

For hida = 4 To 29
goukei = Range("C" & hida).Value

If Range("E" & migi).Value = Range("A" & hida).Value Then
goukei = goukei & "," & Range("F" & migi).Value
End If
Range("C" & hida) = goukei
Next
Next
End Sub


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

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

受講生さんからの投稿です。

お世話になっています。一つ聞きたいことがあります。
下記のように、 Range("D" & hida).Value = goukeiをfor next (migi)の構文内で実行すると、今月支払いのない成人祝いの欄は「空白」で表示されます。
構文外にこの式を置くと「0」と表示されるのですが、構文内に置くとなぜ「空白」になってしまうのでしょうか。
[code]Sub rensyu3()
Dim goukei
Dim migi
Dim hida
For hida = 4 To 9
goukei = 0
For migi = 4 To 10

If Range("I" & migi).Value = Range("B" & hida).Value Then
goukei = goukei + Range("J" & migi).Value
Range("D" & hida).Value = goukei
End If
Next
Next
End Sub[/code

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

[7416] 基礎講座第4章5 - 「ハナコのステップ」のふりかえり

受講生さんからの投稿です。

ネットから拾ってきてそのまま写すはとてもやりがちだと思いました。この講義を受けることで1つ1つの積み重ねが大事と実感しました。

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

[7415] 基礎講座第4章4 - 「For Next構文」の実習

受講生さんからの投稿です。

楽しいです!!

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

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

ゲストさんからの投稿です。

マクロ・VBAを自分のものにしたいとおもっていました。とてもタイムリーに良い動画で助かります。しっかり自分のものにしたいと思います。

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

[7406]

田中 宏明さんからの投稿です。

ようやく発展編1 フォローメールセミナーをやり始めました。
自分で考えながらマクロを書くことが上達への近道だと実感しているところです。
第9回宿題ですが、並べ替えせずに「連想配列」を使ってみましたのでコメントいただければ幸いです。

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

[7404] エクセルマクロ・VBAを利用するための推奨設定 - イントロダクション

ゲストさんからの投稿です。

昔BASICと云うプログラム言語がありました。そのBASICにかなり似ていますので懐かしいですね!VBAはデータベースの集計や各項目の抽出に必須であることを痛感しました。
VBAと関数及び作業セルを使えば、仕事でも何でも出来ないことは無いと思います。

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


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

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

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

トップへ