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

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

[13038]条件に一致するデータだけのリストを、条件に一致しないデータを削除する方法で作成する。

2021-06-19 22:54:41 凜さんからの投稿です。

いつもお世話になっております。
教えて頂いた事を復習しつつ、下記のようなマクロを書いてみました。
いちお動作結果は問題ないようでしたが、気付かない不具合があるのかと不安になりました。ご教示頂けますでしょうか。
よろしくお願いします。

Sub hanako()

Dim gyo
For gyo = 10 To 35
    If Range("D" & gyo).Value = "ぬいぐるみ" Then
    
    Else
        If Range("C" & gyo).Value = "" Then
         Exit For
        Else
         Rows(gyo & ":" & gyo).Select
         Selection.Delete shift:=xlUp
         gyo = gyo - 1
        End If
    End If
    
Next

End Sub

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

[12953]商品ごと、年ごとの販売額合計をピボットテーブルのように出力する(その1)

2021-04-04 21:49:25 藤村英夫さんからの投稿です。

この動画は本当に汎用性が高く 仕事でも色々なマクロに使用させて頂いております。久々にこの動画を復習の為にスマホで見直したのですが 音声が去年の10月の他の生徒さんの御指摘からまだ修正されていないのでしょうか?電車の中で聴いているせいもあり 聞こえにくく残念です。

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

[12948]データ記入用ファイルを配布する-その2

2021-03-28 18:58:13 ゲストさんからの投稿です。

小川様

お世話になっております。

変数foldernameと変数filenameを用いるところでエラーが出てしまい半日悩んでいましたが、過去のコメントを見直し、演習動画を何度も見直し、演習動画のコードを完璧に再現することによってエラーを解消することができました。

問題に行き詰まった時の乗り越え方が少し分かったような気がしました。

演習動画の内容を完璧に再現することを心がけます。

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

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

2021-02-15 18:50:26 ゲストさんからの投稿です。

小川様

お世話になっております。

こちらの動画と次回の動画を理解し、よどみなくコードが書けるにはどの動画を復習すればよいでしょうか?基礎編フォローアップから前回の内容までを復習し直せばよろしいでしょうか?

今回の動画の内容が自分にとって難しかったため、自分の力不足を実感しました。

お手数をおかけしますが、お返事をよろしくお願いいたします。

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

[12754]データ記入用ファイルを配布する-その2

2021-01-04 18:54:38 受講生さんからの投稿です。

いつもお世話になっております。
VBAについてはたいへん関心がありましたが、今までいくら学習しても自分でプログラムを作成するにはいたらず、むずかしいと諦めていました。
どこのホームページかわかりませんが、この講座を紹介しており受講してみたところ、先生の考え方やどこに注意するのかなどもわかり、動画から作成するまでの流れも理解でき、今では初級レベルの問題で時間はかかりますが、自分で考えて作成することができるようになりました。
この講座に出会えたことを感謝しています。
※一番うれしかったのはハナコのステップで、これまでプログラム作成にあたっては、初めから完成形を作ろうとしていたことに問題があったのだと気付くことができました。本当にありがとうございます。

今回の課題の中で一つ質問があります。
今回の課題の回答の中で下記のようなプログラムがあります。「Workbooks(filename).Sheets(“歳入”).Select」とはじめにシートを選択していますが、それ以降の構文で「Workbooks(filename).Sheets(“歳入”)」や「Workbooks(“全部1つ.xls”).Sheets(“部署情報”)」のようにセルを指定するにあたりシート名等をしっかり指定しているので、この構文はいらないのではないかと思い、「Workbooks(filename).Sheets(“歳入”).Select」をコメントにして実行してみたところ「実行時エラー1004 RangeクラスのSelectメソッドが失敗しました。」と表示されました。
その理由がわからないため、教えていただけますでしょうか。
        記

 Workbooks(filename).Sheets("歳出").Select
        For gyo = 41 To 2 Step -1
            If Workbooks(filename).Sheets("歳出").Range("C" & gyo).Value <> Workbooks("全部1つ.xls").Sheets("部署情報").Range("C" & busho).Value Then
                Workbooks(filename).Sheets("歳出").Range("A" & gyo & ":F" & gyo).Select
                Selection.Delete Shift:=xlUp
            End If
        Next

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

[12694]商品ごと、年ごとの販売額合計をピボットテーブルのように出力する(その2-2)

2020-12-22 23:20:32 受講生さんからの投稿です。

小川塾長

いつもお世話になっております。
ご教授いただけましでしょうか?

IF hida>2 then ですが、なぜこのコードが必要なのかが理解できません。
最初のループでshohinがempty値だからでしょうか?

それに伴い、Range(“B”&hida-1).value=2005 thenで、なぜ-1するのかも理解ができずにおります。

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

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

[12580]セル内の文字列から区切り文字を見つけ、その区切り文字の間にある文字列を反映しつつデータ転記する

2020-11-05 16:49:04 morimotoさんからの投稿です。

ふっと思い付き、逆に役割ごとに分割されたのを元のように結合し戻すことができるのではないか?と思い、できました。昔はもう何も手付かずチンプンカンプンだった自分が懐かしです。この講座で勉強できてほんとよかったです。

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

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

2020-10-15 22:24:32 受講生さんからの投稿です。

小川 塾長
質問させて頂きます。
If mitsukatta=false then
についてですが、追加があった時だけが当てはまるのでしょうか?
range(“A”&moto).Value = “”の時も当てはまりそうに感じるのですが、
実行しても、空白の値が追加されるという事はありません。
そこがどうにも腑に落ちないのですが、私の考え方がおかしいのでしょうか?

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

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

2020-09-28 14:28:47 受講生さんからの投稿です。

いつもお世話になっています。
質問致します。
false、trueは、変数では無いのですね?
(確かに、Dimで宣言もしてません。)
他の文字に変えたらうまく行きませんでした。

なにか特別な意味を持つキーワードなのでしょうか?



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

[12465]商品ごと、年ごとの販売額合計をピボットテーブルのように出力する(その1)

2020-09-27 15:48:07 ゲストさんからの投稿です。

今回の動画は、音声が聞き取りにくかったです。
1.音が割れている
2.小川先生のサ行とタ行が聞き取りにくい
3.音飛びしている(1:17~1:20頃、7:00頃、8:19頃)
4.たびたび雑音が入る(8:30以降)
一度目に聞いた時は、音が気になって内容がほとんど入ってこなかったです(笑

マクロの内容については、実務で出番の多い内容だと感じました。
以前小川先生に質問させていただいた内容に似ていたためか、なにも見ずに書けました。
質問する前に、この動画で演習しておけば良かったんだと思いました。小川先生、すみませんでした。
基礎編をしっかり身につけておくのは、本当に大切ですね。

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

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

2020-09-20 12:27:57 ゲストさんからの投稿です。

お世話になっています。
今回の「フラグ」という概念は、
「if文で条件一致するグループと条件一致しないグループの二つのグループに分けている」ように感じたのですが、
その理解で良いでしょうか?

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

[12428]商品ごと、年ごとの販売額合計をピボットテーブルのように出力する(その2-2)

2020-09-15 02:04:19 たかちゃんさんからの投稿です。

遂にここまで到達しました。
アドバンスドは、動画1〜動画17を2回繰り返し、動画18〜20と来ました。後半も迷いつつも、意外とあっさり出来ました。(^^)
基本のパターンがあるなんて、この講座を受講するまで知りませんでした。
パターン知っていると全然違いますね。
アドバンドも解答方法がパッと思いつくまで繰り返して、発展編へ進もうと思います。

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

[12423]データ記入用ファイルを配布する-その2

2020-09-13 08:32:10 たかちゃんさんからの投稿です。

【感想】
・For文前にて、Workbooks 〜 Sheets(“歳入”).Selectの1文漏れ
・その他、自動マクロからコピーした部分に、Workbooks〜の記入漏れ
・自動マクロで記録時のファイルの拡張子と、部署情報シートにあるファイル名の拡張子が異なることにより出る実行時エラー。

以上、3点の罠にはまって数時間悩みました。(><) 落ち着いてゼロから書き直して解決しました。正確に記述することの大切さを思い知らされた問題でした。


エラー詳細:
Visual Basic for application
実行時エラー’1004′:
変更を’a.xls’に保存できませんでしたが、テンポラリードキュメント ‘8E440000’に保存されました。既存のドキュメントを閉じて、テンポラリドキュメントを開き新しい名前を付けて保存してください。

自動マクロで記録時のファイルの拡張子と、部署情報シートにあるファイル名の拡張子が異なると上記のエラーが出る模様。

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

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

2020-09-12 02:04:14 たかちゃんさんからの投稿です。

【感想】
ここまで動画4以外は悩むことなく順調でしたが、ここに来てつまづきました。( ><) 類似問題(動画6)では問題なかったのですが。

アドバンスドに来て、値の記述が長くなることが多かった為、プログラムを書いていて「面倒だなぁ」とか「若干、頭が混乱するなぁ」と感じることがあり少し気にはなっていたのです。

良い機会なので、ここで動画1に戻って再度復習してから最後のピボットテーブルに挑戦することにしました。 

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

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

2020-09-11 10:10:02 たかちゃんさんからの投稿です。

vbaが分かってくるようになると、世界変わりますね。。。(^^
基礎編の知識でも、ここまで色々できるなんて感動しました。

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

[12408]セル内の文字列から区切り文字を見つけ、その区切り文字の間にある文字列を切り出す

2020-09-07 03:26:41 たかちゃんさんからの投稿です。

昨日、本日と悩んで、先程やっと自力で解答することができました!
何度も途中で答えを見ようか迷ったのですが、昨日の時点で結構惜しい所まで書けていたので、もう少し頑張ろうと粘って最後にやっと解答できました。これまでの問題で一番苦労しましたが、本当に嬉しいです。(o^^o)♪

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

[12405]VLookUp関数、Index関数、Match関数より便利なマクロ-複数シート間、複数ファイル間でのマッチング

2020-09-06 11:19:39 受講生さんからの投稿です。

はじめまして
勉強させて貰っています。
今、会社で来場アンケートの集計をグラフにする仕事を与えられ、VBAで作ってみようと思い考えています。
アンケートのイメージを添付ファイルに書きましたが10~15問ぐらいで、それぞれの会場別で問ごとに100パーセントのグラフを作る作業です。
今後も同アンケートを取り続けるので、それぞれ集計したテーブルを作成しグラフを作るまでをVBAでと思い、if文で書いていましたがとかなり長くなり不安になりました。
各問ごとにif文を書くいていますが、そもそもの考え方が間違っているのでしょうか?

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

[12236]VLookUp関数、Index関数、Match関数より便利なマクロ-複数シート間、複数ファイル間でのマッチング

2020-07-01 18:19:04 さざなみさんからの投稿です。

質問です。ある10桁以上の連続した番号を含むファイルAがあります。Bにも同じ番号が入力されています。10桁以上の番号をキーにして、Bの情報をAのファイルに転記したいのですが、Bの番号にはハイフンが含まれています。ハイフンを排除したいのですがどうしたらできますか?発展編2を受ければスマートなやり方ができますか?検索・置換やブイルックアップを使わずにマクロでやりたいです。

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

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

2020-06-06 16:29:17 受講生さんからの投稿です。

質問ですが、以下のコードが今回解説で使われていました。

Workbooks(fname).Worksheets("転記先").Range("B" & saki).Value = Workbooks("ks204.xls").Worksheets("List").Range("B" & moto).Value
Workbooks(fname).Worksheets("転記先").Range("C" & saki).Value = Workbooks("ks204.xls").Worksheets("List").Range("C" & moto).Value
Workbooks(fname).Worksheets("転記先").Range("D" & saki).Value = Workbooks("ks204.xls").Worksheets("List").Range("F" & moto).Value
Workbooks(fname).Worksheets("転記先").Range("E" & saki).Value = Workbooks("ks204.xls").Worksheets("List").Range("E" & moto).Value
Workbooks(fname).Worksheets("転記先").Range("F" & saki).Value = Workbooks("ks204.xls").Worksheets("List").Range("D" & moto).Value
Workbooks(fname).Worksheets("転記先").Range("G" & saki).Value = Workbooks("ks204.xls").Worksheets("List").Range("G" & moto).Value


私は下記のコードを使って動かせたのですが、解説通りのほうがよろしいのでしょうか?

Workbooks(fname).Worksheets("転記先").Range("B" & saki & ":G" & saki).Value = Workbooks("ks204.xls").Worksheets("List").Range("B" & moto & ":G" & moto).Value

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

[12062]商品ごと、年ごとの販売額合計をピボットテーブルのように出力する(その2-2)

2020-05-10 18:38:24 morimotoさんからの投稿です。

小川塾長:いつも詳しい解説ありがとうございます。
現在発展編1学習中です。先日基礎編アドバンス演習18で
詳しい添削していただきありがとうございました。
今回は演習20でまたもsum関数で計算算出するコートができました。
まず商品で並び替えして、商品を転記
そして年→商品で並び返し
最後年が変わる前後でsum関数の始期、終期を出して
式挿入しました。仕事でこのようなsum関数を使う場面が多いので
動画18に続いて自装してみました。添削のほどお願いしたく
よろしくお願いします。

Sub GWtoshinarabiake()
'20200509
'ここでは商品順に並び変え、各商品を転記する
Worksheets("自粛練習").Activate
'商品を転記

Dim tate As Integer
Dim key As String
Dim gyo As Integer
Dim mgyo As Integer

mgyo = Range("a" & Rows.Count).End(xlUp).row
tate = 3
key = ""

'年で並び替え
Call Range("a1" & ":" & "f" & mgyo).Sort( _
           key1:=Range("e2"), order1:=xlAscending, _
           Header:=xlYes)

For gyo = 2 To mgyo
   If key <> Range("e" & gyo).Value Then
      key = Range("e" & gyo).Value
      Range("H" & tate).Value = key
      tate = tate + 1
   End If
Next gyo

End Sub

Sub toshishohinnarabikae()
'年→商品で並び替え
Worksheets("自粛練習").Activate

Dim mgyo As Integer
 mgyo = Range("a" & Rows.Count).End(xlUp).row

 Call Range("a1" & ":" & "f" & mgyo).Sort( _
           key1:=Range("b2"), order1:=xlAscending, _
           key2:=Range("e2"), order2:=xlAscending, _
           Header:=xlYes)
End Sub

Sub GWexecise1()
'sum関数で商品-年ごと算出
Worksheets("自粛練習").Activate

Call GWtoshinarabiake
Call toshishohinnarabikae

Dim gyo As Integer
Dim mgyo As Integer
Dim tate As Integer '転記先のタテ位置
Dim yoko As Integer
Dim key As String  '年 & 商品のkey
Dim key1 As String '年のkey
Dim key2 As String '商品のkey
Dim toshi As String '年
Dim shohin As String '商品
Dim srow As Integer  'sum関数の始期
Dim erow As Integer  'sum関数の終期

mgyo = Range("a" & Rows.Count).End(xlUp).row
tate = 3
yoko = 0
key = ""
key1 = ""
key2 = ""
srow = 2

For gyo = 2 To mgyo
 toshi = Range("b" & gyo).Value
 shohin = Range("e" & gyo).Value
 
  If gyo > 2 Then
     
      If key <> toshi & shohin Then
         key = toshi & shohin
        
          If key1 <> toshi Then 'gyo>2の条件下でkeyが変わりtoshiも変わった             とき
             key1 = toshi
               If key2 <> shohin Then 'gyo>2の条件下でtoshiもshohinも変わっ               たとき
                  erow = gyo - 1
                  Range(Chr(73 + yoko) & tate).Value = "=sum(F" & srow & " : F"         & erow & ")"
                  srow = gyo
                  yoko = yoko + 1
                  tate = 3 '---タテ位置を3にリセット
                  Range(Chr(73 + yoko) & 2).Value = key1 & "年"
                End If
           Else
             'gyo>2の条件下でkeyが変わりshohinが不変のとき
              key2 = shohin
              erow = gyo - 1
              Range(Chr(73 + yoko) & tate).Value = "=sum(F" & srow & " : F" &        erow & ")"
              srow = gyo
              tate = tate + 1 '下へシフト
           End If
   
       End If
       
   Else 'gyo=2のとき
     Range(Chr(73 + yoko) & 2).Value = toshi & "年"
     key = toshi & shohin
   key1 = toshi
     key2 = shohin
  End If

Next gyo
 'For Nextを出た後にラスト分転記
   erow = gyo - 1
   Range(Chr(73 + yoko) & tate).Value = "=sum(F" & srow & " : F" &   erow  & ")"
End Sub

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

[12040]セル内の文字列から区切り文字を見つけ、その区切り文字の間にある文字列を反映しつつデータ転記する

2020-05-06 14:38:38 受講生さんからの投稿です。

<先ほどの訂正>
一発でできました!
途中書いたコードを確かめながら、間違いがあってもどこが間違っているか手直しして短時間でできました。
ベーシックで躓きもありましたが、コードを印刷して、どこがどう作用しているのか、どんな意図なのかメモを書いて見直していたら、理解が進みました。躓いている方がいたら印刷して自分なりの解説を手書きしてみることをお勧めします。
このやり方で、「mae=ato」「ato=n」もすんなり理解できました。

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

[12027]セル内の文字列から区切り文字を見つけ、その出現回数+1回だけデータ転記する

2020-05-05 17:12:45 kanekoさんからの投稿です。

理解できない部分があり、フォローアップ ベーシックを読み返してもやはり分からなかったので質問です。
理解できなかったのは、マサラさんが質問した内容と同じ、For next構文の使い方についてです。
以下の通り、自分なりに整理しましたが、認識はあっていますでしょうか。

①今回の使用例
sub tenki()
dim saki
dim kaisu
for kaisu = 0 to 3
WorkSheets(“Sheet2”).range(“B” & saki & “:G” & saki).value=Worksheets(“sheet1”).range(“A2:F2”).value
saki = saki +1
next
end sub

②フォローアップ ベーシック 【動画5】
sub listup()
dim hida
dim migi
migi = 5
for hida = 8 to 17
if range(“C” & hida).value > 100 then
range(“F”&migi).value = range(“A” & hida).value
range(“F”&migi).value = range(“A” & hida).value
range(“F”&migi).value = range(“A” & hida).value
migi = migi + 1
end if
next
end sub

②今までのの使用例は、行や列をある特定の範囲で指定しセルやその範囲を指定するものだったのに対して、
①今回の使用例は、For~Nextの間のコードを繰り返すという使い方であるように考えました。

まず、この考え方は合っていますでしょうか。

また、この使用例は基礎講座で初めて出てきた使い方であるという認識であっていますでしょうか。
私が見逃している場合は教えていただきたいです。復習したいと思います。

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

[11998]商品ごと、年ごとの販売額合計をピボットテーブルのように出力する(その2-2)

2020-04-30 16:02:42 受講生さんからの投稿です。

基礎編がやっと終了しました。かなり頭の整理できて大変よかったと思っています。実務に使えるようなものが多く、参考にしたいと思っています。
今後、発展編に進むか動画の一覧表をみて検討中です。
発展編1で、「エクセルのセル内のデータだけでなく、グラフやピボットテーブル、オートシェイプ等もマクロで操作できるようになる。」と記載されています。ピポットテーブルもマクロで操作できるようですが、発展編1で説明されているどの動画をみれば、わかるようになるのでしょうか。

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

[11979]データ記入用ファイルを配布する-その1

2020-04-27 19:14:03 受講生さんからの投稿です。

みてほしかったのは、rensyu3でしたが、再度、見直したところ、誤りがわかりました。最後のsaveとcloseの位置がまちがっていました。お騒がせしました。

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

[11977]データ記入用ファイルを配布する-その1

2020-04-27 18:54:44 受講生さんからの投稿です。

1.部署名Aについてはaファイルが作成され、正確に処理されています。
2.次の部署名Bを処理する時点で上記のエラーがでます。
先生のプログラムを拝見しても、相違点はないように思うのですが。
画面とプログラムを添付します。色々検討したのですが、わからなかったのでご質問します。お手数をおかけします。

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

[11959]条件に一致するデータだけのリストを、条件に一致しないデータを削除する方法で複数の別ファイルとして連続的に作成する。

2020-04-26 22:35:48 受講生さんからの投稿です。

ファイルの保存を自動マクロで記録して実行すれば、ファイル保存できました。
ファイル名だけ、変数にしてファイル保存しようとするとエラーがでました。色々試しましたが、うまくいきません。お手数ですが、教えてください。今まで順調に学習できていましたが、今回はギブアップです。

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

[11789]商品ごと、年ごとの販売額合計をピボットテーブルのように出力する(その1)

2020-02-06 23:19:35 morimotoさんからの投稿です。

小川塾長:
さっそく返答いただきありがとうございます。6つに細分化までしていただき工程を追いかけやすく助かります。まだざっと目を通したところですがこれから精読していきます。sum範囲と考えず、商品がかわる行をみつけると考えればできそうな気がしました。九九のごとく何度もガチガチととF8でやってみてつかみたいと思います。

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

[11784]商品ごと、年ごとの販売額合計をピボットテーブルのように出力する(その1)

2020-02-06 00:25:19 morimotoさんからの投稿です。

小川塾長:
現在発展編1学習中です。この講義で研究していることがありまして、
商品ごと→年ごとに並び替えをし、H列に商品ごと、年ごと、合計額、
件数を出力し、さらに商品ごとの合計額と件数をsum関数を使って出力しする。そして1行開けて次の商品についても同様に
商品ごとの合計額と件数をsum関数を使って出力したい。

非常に難しかったのが、sum関数の範囲を指定するところでした。
範囲の始点をsrow, 終点をerowとして
srow→商品の出力の初めだからsrow=tate
erow→商品が変わり出力される手前だからerow=tate-1
,,,だろうとF8の押下を何度もトライしました。
特にsrow=tateと書く位置、erow=tate-1と書く位置を決めるところが
なかなかすぐに定まらず、F8を頼りに何度も何度も書く位置を探し出し
ようやくできた感じです。

そこでお伺いしたいのが、このようなsum関数を使うため範囲を指定するときに、何かコツのようなものがないものか?
あるいは、まったく別の方法があるのか、アドレスいただきたく
よろしくお願いします。仕事でこのような資料を作成する場面があり
この機会に何か習得できたらいいなと思います。

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

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

2020-01-26 06:58:22 受講生さんからの投稿です。

お世話になります。ファイルについて確認させてください。動画の通りに自分でcodeを書いたつもりなのですが、VBAを実行しますと各ブックa,b,c,,,,それぞれのブックの追加情報が取り込めてはいるのですが、a,b,c,,,,それぞれのブックの追加情報の間に数行のスペース出来てしまっています。(例えば、aget.xlsの追加情報が53行目から55行目に記載されるとbget.xlsの追加情報は96行目98行目に取り込まれる)。
そこで正解のcodeを確認したいのですが、プロシージャー名dataget_fin_finの正解はどちらに保存されてますでしょうか。

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

[11733]データ記入用ファイルを配布する-その1

2020-01-09 09:09:25 受講生さんからの投稿です。

小川先生、
ご回答ありがとうございました。ご指摘の通りでした。foldernameでは、ad映像14ではなく、動画の中と同じファルダ名を指定していたため指定フォルダが見つからず動きませんでした。教えていただだくと、”なんで自分で気づけなかったのか、よく見れば確かにそうだ。”なのですが、原因を探すのに随分時間を使ったのですが、見つけられませんでした。

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


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

 

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

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

トップへ