オンライン講座 質問と回答

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

[7532]発展1講座第5章 - モジュールレベル変数 アクセシビリティ設定

2017-01-18 11:05:15 受講生さんからの投稿です。

お世話になっております。
複数モジュールの間での使いまわしの例、大変参考になりました!
複数ブック間でも、Excelでブックを開いていれば使いまわせたら便利と考えたのですが、
ブック間でのプロシージャの移動はpublic、plivateの知識だけではできないみたいですね。

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

[7530]複数のマクロを連続実行する - Excel2007, 2010, 2013,2016の場合

2017-01-17 23:25:25 上原 巧貴さんからの投稿です。

一つ一つの言葉の説明を理解しながら進むことが出来て、着実に進めてる感じが楽しいです。
初心者の意見になってしまいますが、コードウィンドウに入力したプログラムが間違えていた場合のやり直しの仕方もあると嬉しかったです。

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

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

2017-01-16 16:39:25 上原 巧貴さんからの投稿です。

今まで全く違う分野で仕事をしてきたので、エクセルもマクロにも知識がありません。短期間で少しでも早くマクロの知識を身につけて仕事に役立たせたいと思ってます。色々な参考書を見てもどこから手をつけたらいいのか分からない状態でしたが、この動画を拝見して自分にも理解できるようになるかもと、兆しが見えてきました!全くの初心者ですがよろしくお願いします。

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

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

2017-01-15 03:47:29 田村徳宏さんからの投稿です。

動画を視聴させていただいて仕事等で使うわけではないのですが頭を良くする、理解力を深める事にいいかなとVBAに興味が湧きました。

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

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

2017-01-13 23:17:02 石橋さんからの投稿です。

興味が出てきました。ぜひ、マクロを習得したいです。

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

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

2017-01-13 12:25:53 ゲストさんからの投稿です。

激勉

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

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

2017-01-12 19:29:21 ゲストさんからの投稿です。

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

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

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

2017-01-11 22:54:28 ゲストさんからの投稿です。

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

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

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

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

2017-01-11 18:21:54 ゲストさんからの投稿です。

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

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

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

2017-01-09 22:46:32 受講生さんからの投稿です。

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]エクセルマクロの全体像

2017-01-09 21:42:26 受講生さんからの投稿です。

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

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

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

2017-01-09 19:23:58 ゲストさんからの投稿です。

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

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

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

2017-01-08 07:18:34 ゲストさんからの投稿です。

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

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

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

2017-01-06 09:24:06 ゲストさんからの投稿です。

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

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

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

2017-01-04 17:18:07 ゲストさんからの投稿です。

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

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

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

2017-01-04 10:32:58 受講生さんからの投稿です。

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

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

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

2017-01-04 07:23:26 平吹 敦史さんからの投稿です。

小川先生

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

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

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

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

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

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

2017-01-04 07:04:36 平吹 敦史さんからの投稿です。

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

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

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

2017-01-01 16:34:59 受講生さんからの投稿です。

お世話になっております。
転記先のファイル名について一つ教えてください。
変数にするまでは「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

2016-12-28 05:16:17 受講生さんからの投稿です。

小川様

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

小川さんの模範解答には

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]エクセルマクロの全体像

2016-12-27 20:08:52 ゲストさんからの投稿です。

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

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

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

2016-12-27 14:32:13 野口綾さんからの投稿です。

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

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

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

2016-12-24 08:30:42 受講生さんからの投稿です。

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

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

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

2016-12-21 15:47:49 受講生さんからの投稿です。

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

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

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

2016-12-16 13:08:20 受講生さんからの投稿です。

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]エクセルマクロの全体像

2016-12-15 22:06:29 ゲストさんからの投稿です。

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

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

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

2016-12-15 16:58:29 受講生さんからの投稿です。

お世話になっております。一つこの例題について伺いたいことがあります。
もし、キャンペーン応募が同じ人から複数件あったとして、左の表の同じセルに「、」を打って複数件足していくような場合を想定して下記のようなコードを書きました。
しかし、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関数がやっていることをマクロで書くと?

2016-12-15 11:11:20 受講生さんからの投稿です。

お世話になっています。一つ聞きたいことがあります。
下記のように、 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

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

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

2016-12-14 12:34:36 受講生さんからの投稿です。

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

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

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

2016-12-14 12:22:46 受講生さんからの投稿です。

楽しいです!!

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


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

 

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

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

トップへ