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

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

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

2019-04-29 17:09:01 マサラさんからの投稿です。

小川先生が動画の中で度々お話しされているように、
繰り返しコードを打つことで段々と身に付いてきました。
特に、フォローアップのbasicから一問ずつ繰り返すことにより、
先日質問させていただいたFor Nextの使い方について、迷わなくなりました。
今回のマクロでは、細かいケアレスミスをしなくなる(その都度ミスに気が付く)というのがひとつの到達点だと感じています。

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

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

2018-08-25 18:25:18 ゲストさんからの投稿です。

こんにちは。いつもお世話になっております。
ファイルを保存するところで、エラーになり進めないでおります。

実行時エラー 1004

ファイル’D:\renshu\配布先フォルダa\’にアクセスできません。次のいずれかの理由が考えられます。
・ファイル名またはパスが存在しません
・ファイルが他のプログラムによって使用されています
・保存しようとしているブックと同じ名前のブックが現在開かれています

Dドライブには間違いなく「renshu」フォルダが存在します。
どのようにしたら解決しますでしょうか。


———————————————————————
Sub renshumacro()
Dim foldername
Dim filename
Dim gyo

foldername = Workbooks(“全部1つ.xls”).Sheets(“部署情報”).Range(“D2”).Value
filename = Workbooks(“全部1つ.xls”).Sheets(“部署情報”).Range(“E2”).Value

Workbooks(“全部1つ.xls”).Sheets(Array(“歳入”, “歳出”)).Select
Workbooks(“全部1つ.xls”).Sheets(“歳出”).Activate

Workbooks(“全部1つ.xls”).Sheets(Array(“歳入”, “歳出”)).Copy ‘←この段階で新しいファイルができた
ActiveWorkbook.SaveAs filename:=”D:\renshu\” & foldername & “\” & filename, FileFormat:= _
xlExcel8, Password:=””, WriteResPassword:=””, ReadOnlyRecommended:=False _
, CreateBackup:=False

Workbooks(filename).Sheets(“歳出”).Select
Workbooks(filename).Sheets(“歳出”).Range(“A23:D23”).Select
Selection.Delete Shift:=xlUp

Workbooks(filename).Sheets(“歳入”).Select
Workbooks(filename).Sheets(“歳入”).Range(“A23:D23”).Select
Selection.Delete Shift:=xlUp

Workbooks(filename).Save
Workbooks(filename).Close

End Sub

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

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

2018-04-22 08:13:21 伊藤博文さんからの投稿です。

お世話になっております。
昨日より、データ記入用ファイルを配布する演習問題に取り組んでいますが、ご指導していただいた結果、下記の式となりました。
一応、C:\配布物-課題一式\配布先フォルダaに、”a.xls”が保存できるようになりました。
結果報告として、下記の式で問題がないとおもうのですが、確認していただきたくおもいますので、宜しくお願いします。


Sub Macro1()

‘ Macro1 Macro

Dim folder_name
Dim fail_name
Dim gyo

folder_name = Workbooks(“全部1つ.xls”).Sheets(“部署情報”).Range(“D2”).Value
fail_name = Workbooks(“全部1つ.xls”).Sheets(“部署情報”).Range(“E2”).Value

Workbooks(“全部1つ.xls”).Sheets(Array(“歳入”, “歳出”)).Select
Workbooks(“全部1つ.xls”).Sheets(“歳出”).Activate

Workbooks(“全部1つ.xls”).Sheets(Array(“歳入”, “歳出”)).Copy
ActiveWorkbook.SaveAs Filename:=”C:\配布物-課題一式\” & folder_name & “\” & fail_name, _
FileFormat:=xlExcel8, Password:=””, WriteResPassword:=””, _
ReadOnlyRecommended:=False, CreateBackup:=False

Workbooks(fail_name).Sheets(“歳出”).Select
Workbooks(fail_name).Sheets(“歳出”).Range(“A23:F23”).Select
Selection.Delete Shift:=xlUp

Workbooks(fail_name).Sheets(“歳入”).Select
Workbooks(fail_name).Sheets(“歳入”).Range(“A23:F23”).Select
Selection.Delete Shift:=xlUp

Workbooks(fail_name).Save
Workbooks(fail_name).Close
End Sub

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

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

2018-04-21 21:03:16 伊藤博文さんからの投稿です。

お世話になっております。
先ほどの、ご指導していただきましたことをおこないました。
Cドライブ内にrensyuのフォルダを作成しました。
やはり小川先生がご指導していただいた内容が
バッチリハマってできました。
ひとつトラブルとなかなか、理解がおいついてないもので、
上手くできませんでした。
本当に、わかりやすい解説・ご指導ありがとうございました。
今後ともよろしくお願いいたします。

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

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

2018-04-21 16:43:52 伊藤博文さんからの投稿です。

お世話になります。

先ほど、指導していただきましたが、保存先をドキュメントにして、
試みましたが、また怒られました。
よくわかりません。ご指導宜しくお願いします。


Sub Macro1()

‘ Macro1 Macro

Dim foldername
Dim file_name
Dim gyo

foldername = Workbooks(“全部1つ.xls”).Sheets(“部署情報”).Range(“C2”).Value
file_name = Workbooks(“全部1つ.xls”).Sheets(“部署情報”).Range(“D2”).Value

Workbooks(“全部1つ.xls”).Sheets(Array(“歳入”, “歳出”)).Select
Workbooks(“全部1つ.xls”).Sheets(“歳出”).Activate

Workbooks(“全部1つ.xls”).Sheets(Array(“歳入”, “歳出”)).Copy
ActiveWorkbook.SaveAs filename:=”C:\Users\a\” & foldername & “\” & file_name, _
FileFormat:=xlExcel8, Password:=””, WriteResPassword:=””, _
ReadOnlyRecommended:=False, CreateBackup:=False

Workbooks(file_name).Sheets(“歳出”).Select
Workbooks(file_name).Sheets(“歳出”).Range(“A23:F23”).Select
Selection.Delete Shift:=xlUp

Workbooks(file_name).Sheets(“歳入”).Select
Workbooks(file_name).Sheets(“歳入”).Range(“A23:F23”).Select
Selection.Delete Shift:=xlUp

Workbooks(file_name).Save
Workbooks(file_name).Close
End Sub

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

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

2017-11-25 08:24:04 受講生さんからの投稿です。

・変数の置き換えがやっぱり重要
 ”&” ちょん・あんど・ちょん と言いながら一つ一つ確認しながらやってみるとうまくいった。
・作業ホルダーと保存先フォルダーの関係に気をつける。
(ここでつまづいて解決するのに60分かかった。が、勉強になった)
何より失敗して解決していく過程が大事だと実感した。
・ファイルの配布ができるようになった!

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

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

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

小川先生

基礎編の知識だけでここまでのことができるなんて!
実際にファイルが作成されたのを確認して、心底感動しました!!
マクロを書いている間も楽しかったです^^
処理に時間がかかるのは、基礎編の知識で書いているからですか?
それともこの程度の処理であれば、発展編以降の知識で書いてもこのくらいは
時間がかかるのでしょうか?

また、作成されたファイルを開こうとすると以下の確認メッセージが表示されます。
”開こうとしているファイル’a.xls’は、実際にはその拡張子が示すファイル形式ではありません。
このファイルを開く前に、ファイルが破損していないこと、信頼できる発行元からのファイルであることを確認してください。
ファイルを今すぐ開きますか?”
「はい」をクリックすると中身は問題なく表示されますが、保存の構文に問題あるのでしょうか・・・

ちなみに保存にかかわる構文(抜粋)は以下の通りです。
Dim sakuseisaki
Dim filen

sakuseisaki = Workbooks(“全部1つ”).Worksheets(“部署情報”).Range(“D” & busyo).Value
filen = Workbooks(“全部1つ”).Worksheets(“部署情報”).Range(“E” & busyo).Value

ChDir “C:\Users\hasegawa\Desktop\ensyu_copy-課題一式”
ActiveWorkbook.SaveAs Filename:= _
“C:\Users\hasegawa\Desktop\ensyu_copy-課題一式\” & sakuseisaki & “\” & filen & “”, FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

ご教授いただければ幸いです。
よろしくお願いいたします。

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

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

2016-04-14 15:01:58 塩野 勝大さんからの投稿です。

初めて質問します。基礎編フォローアップの33講義目の1分30秒あたりのところで、自動記録したところにfoldernameとfilenameを貼り付ける作業までしたところで実行すると
実行時エラー1004となり、ファイルにアクセルできませんでしたと表示されます。何度か試したのですがわかりません。どのようにしたらいいのでしょうか。

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

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

2016-04-13 22:06:16 ゲストさんからの投稿です。

小川先生へ。

はじめて質問致します。
基礎編、発展編1を受講中です。さて、本編のようなケースでは、配布前に、元データと配布するデータとの間に、モレがないかのを検証する必要があると思います。
どのように検証する方法が効率がよいのでしょうか。ご教授いただけますでしょうか。
何卒よろしくお願い致します。

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


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

 

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

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

トップへ