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

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

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

[6547] スクリーンセーバの設定をする

伊藤 康裕さんからの投稿です。

そういえば、最近聞かないなーと思いました。
情報を他人に見られないようにすということに変わったんですね。
自他kのパソコンもスクリーンセイバーをかけます。
Windows8以降の設定の仕方も教えてください。

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

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

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

とても分かりやすいので、がんばって習得したいと思います。

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

[6545] エクスプローラのオプションを設定する

伊藤 康裕さんからの投稿です。

OSがWindows8以降の方、向けの動画も作ってください
設定画面が出ませんし出し方もわかりません。
生徒の多くが、Windows7ではなく、Windows8以降だと思います。
検討お願いします。

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

[6544] エクスプローラでの表示内容を設定する

伊藤 康裕さんからの投稿です。

大切なのは、整理されているかってことですね。
いかに不要なものを排除するかってウ意外とわかっていても出来ないんでよね。
だから、パソコンが重くなってしまう。
人間もsれと同じですね。フォルダー化、グループ7化してすぐに出せる状態にするってことですね。
電話超アプリと同じだ。

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

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

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

理解しました。分かりやすいです。

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

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

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

小川先生

質問させてください。

ファイルが大量にあってファイル名を別途エクセルに記述するのが大変な場合
フォルダにあるすべてのファイルに同じ処理をするというプログラムを書きたいのですが
どのように記述すればいいでしょうか。
For Each??など色々考えてみましたがうまく作成できませんでした。

<作成したいプログラム>
同じフォルダにある複数のファイルを順次開き、ソートをかけて指定した条件に一致するデータだけを
別のファイルに順次コピーをして別の1つのファイルを作成する。

こちらの動画が関連しているかと思って投稿しましたが、
もし他の何かヒントになるような動画があるとのことでしたら
教えていただければと思います。

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

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

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

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

お世話になります。

考え方が間違ってますでしょうか?
まとめにデータを集約したいです。
実際では M1~M20まで同じ形式のワークシートがあります。(行は変動あり)
Worksheets.Count を利用して同じ作業を・・と考えたのですが・・・

まとめのシートに集約する場合に 今のコードで実行すると M1のデータにM2が上書きされてしまいます。
M1のデータを転記した その一つ下の行からM2のデータを転記したいのですが・・
このような場合は 単純にコピーしてまとめ の最終行のひとつ下に貼り付ける方法が良いのでしょうか?
すこし アドバイス(ヒント)願います。

Sub まとめ()
Dim mAx As Long
mAx = Worksheets("まとめ").Range("a" & Rows.Count).End(xlUp).Row + 1

Dim i As Long
For i = 2 To Worksheets.Count
Dim hida As Long
hida = mAx
Dim mIgi As Long
For mIgi = 3 To 6
With Worksheets("まとめ")
.Range("A" & hida).Value = Worksheets(i).Range("A" & mIgi).Value
.Range("B" & hida).Value = Worksheets(i).Range("B" & mIgi).Value
.Range("C" & hida).Value = Worksheets(i).Range("h" & mIgi).Value
.Range("D" & hida).Value = Worksheets(i).Range("E" & mIgi).Value
.Range("E" & hida).Value = Worksheets(i).Range("F" & mIgi).Value
.Range("F" & hida).Value = Worksheets(i).Range("G" & mIgi).Value
End With
hida = hida + 1 ’ここで上書きされてしまう・・
Next
Next

End Sub

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

[6524] 引数として配列を受け取るFunctionプロシージャ

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

小川先生へ

お世話になっております。
1点質問があります。
下記のサブプロシージャーに
(C-2)とありますが、-2は、なぜついているのでしょうか。
ご教授ください。
よろしくお願い致します。


Sub SetCampaignFlag()
Dim stKonyuList() As String
Dim c As Long
For c = 2 To Range("F65536").End(xlUp).Row
ReDim Preserve stKonyuList(c - 2) '←(質問箇所)こちらです。
stKonyuList(c - 2) = Range("F" & c).Value
Next

For c = 2 To Range("B65536").End(xlUp).Row
'以下のIf文の中で、関数からの戻り値を利用している
If IsExists(Range("B" & c).Value, stKonyuList) Then
Range("C" & c).Value = "○"
Else
Range("C" & c).ClearContents
End If
Next
End Sub

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

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

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

パソコンがあまり得意ではなく、難しそうに感じていますが先生の説明ですとわかりやすそうな気がします。覚えられるといろいろな面で活用ができそうですので、覚えられたらと感じています。

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

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

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

マクロは非常に困難で覚えるのが億劫でしたが、先生の授業なら楽しく学べる気がしました。
今後のスキルアップのために、また実践的な仕事を進めるためにも、すべての動画を学習しマスターしようと思っています。
今後ともどうぞよろしくお願い致します。

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

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

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

マクロを組めるようになりたくて、独学で挑戦しましたが思うようにいかず。センスがなさ過ぎるのかと半ば諦めつつありましたが、こちらの動画をみて、やはり出来るようになりたいと改めて思いました。
頑張っていこうと思います

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

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

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

「はやい、安い、うまい」に納得です。特にデータが多くなると正確というのが重要です。力技では、あまりにも繰り返しが多いといやになってしまいますし、ミスも起こります。
この動画で「マクロを使いこなせると仕事がはやく、楽しくなる。量が増えるとうれしくなる。」というのが良くわかりました。

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

[6506] 簡単なマクロを書いてみる - 基本編

森 晋一郎さんからの投稿です。

ショートカットf5,f8を押下しても、ユーザーフォームの実行・デバックが実行できません。
なぜでしょうか?

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

[6504] スタートメニュー、タスクバーの設定をする

伊藤 康裕さんからの投稿です。

知らない事ばかりでした。
ウィンドウズ8以降の方には、関係ないのかなと思いました。
その人たようのカスタマイズの仕方も教えてほしいです

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

[6503] デスクトップアイコンの設定をする

伊藤 康裕さんからの投稿です。

アイコンの整列を動画の通りしました。
アイコンを小さくしたので、少し見にくいですが慣れだと思うので、小さいアイコンの状態を維持します。

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

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

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

マクロ、毛嫌いしていましたが、覚えて使ってみたい!という気になりました。動画、とてもわかりやすかったです。ありがとうございました。

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

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

わださんからの投稿です。

エクセルもロクに使えませんが、この動画を見てマクロのすごさがわかりました。

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

[6487] エクセル2010以降で「保護されたビュー」のツールバーを表示しない方法

林 正隆さんからの投稿です。

これまで毎回手動で外してました。さっそく設定します。

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

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

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

動画を拝聴して興味がありました。基礎編、発展編二つの講座をマスターするのにどれくらいの期間がかかりますか?

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

[6482] 書式設定の活用方法、書式設定が原因で起こりうる問題とその対処法

中村 敏男さんからの投稿です。

大変勉強になりました。

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

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

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

動画拝見致しました。
当方、ちょっとばかりVBAを知っているため、大変わかりやすい動画だなと正直思いました。
そこで、一点質問があるのですが、確かに動画内で小川様が仰っているようにVBAを覚えるとメリットがあるとは思うのですが、業務でVBAを利用していきたい場合、
いろいろな業務があるため、一辺倒ではいかないと思います。
そこで、業務からVBA活用の道を導き出すヒントのような、コツのようなものを講座内でレクチャー頂けるものなのでしょうか?

お手数で恐縮ですがご回答いただけるとありがたいです。
よろしくお願いいたします。

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

[6480] .zip ファイルとは?

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

zipファイルの解凍の仕方がわかりました。
ZIPファイルは、圧縮、解凍知っていれば便利な機能だと思いました。

あと、後ろの子供の声が気になりました。
それと、ノイズ音も
せめて、子供の声が聞こえないところで撮ってください。
よろしくお願いします。

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

[6479]

塩野 勝大さんからの投稿です。

>filenama
>Filename

>↑一文字違いますね。大文字小文字の違いもあります。

>ということで、これでご理解いただけたでしょうか。
>もしピンとこないようでしたら、まずは、基礎編第1章の「変数」のところを再確認してください。

ピンとこなかったので基礎編第1章の「変数」を見直します。


>あと、この問題には、もっと簡単な演習問題でしっかり経験をつんでから再チャレンジすることをおすすめします。

そうですね。まだ、ちょっと早かったみたいです。
簡単な練習で自力をつけます。


>こういうミスにすぐに気づくようにするには、モジュール先頭に以下の一文を追加することです。
>Option Explicit

なるほど、そういう事ができるのですね。早速やってみます。

質問に答えていただき、ありがとうございまいした。
自分の足らないところが分かりました。
質問して良かったです。



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

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

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

お世話になります。
コメントありがとうございます。
並べ替えについて再度質問いたします。

自動記録はとても便利ですが、2007以降の並べ替え自動記録は やけに長く複雑になっています。
しかし、2007/2010のPCでも、以下2003バージョンで同じように並べ替えはできます。
通常使用する 昇順の並べ替えは 自動記録よりも 2003バージョンを覚えて打つ方が早く 
理解もしやすい気がします。
前回 そんな疑問を持ち 質問した次第です。

以下 A列昇順に並べ替えの場合 ①2007以降と②2003の比較 です。

①2007以降の並べ替え 自動マクロで記録(少々アレンジ)
Sub soto3()
' soto Macro 自動マクロ
Dim max
max = Range("A" & ActiveSheet.Rows.Count).End(xlUp).Row
'並べ替え条件をすべてクリア
Worksheets("dete").Sort.SortFields.Clear

'A列の番号で並べ替え
Worksheets("dete").Sort.SortFields.Add _
Key:=Range("A1:A" & max), _
SortOn:=xlSortOnValues, _
Order:=xlAscending, _
DataOption:=xlSortNormal

With Worksheets("dete").Sort
.SetRange Range("A1:i" & max)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

②2003バージョンを最小必要項目に絞りこんだ(これだけでA列並べ替えができる)
Sub Macro3_3()
Dim max As Long
max = Range("A" & ActiveSheet.Rows.Count).End(xlUp).Row
Range("A1:I" & max).Sort _
Key1:=Range("A1"), _
Order1:=xlAscending, _
Header:=xlYes
End Sub

今後2003バージョンが使用出来なくなる・・とか不具合が発生するとか・・
あるのでしょうか?

作成途中のマクロですが資料添付致します。(うまく貼り付けれていますでしょうか・・不安)
ご確認 及び アドバイス 頂けると助かります。
よろしくお願いします。

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

[6474] エクセル2010以降で「保護されたビュー」のツールバーを表示しない方法

堀場 祐太さんからの投稿です。

これは知らなかったです。毎回うっとうしいなぁと思っていたので、すごく良かったです。

ホンの数秒でも積み重ねるとすごい時間になりそうですね。

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

[6473]

田代 由美子さんからの投稿です。

小川さん
>イベントとフォーム講座は、どこでひっかかっていますか。
どこで、引っかかるというか、動かしながら学べ劇的に変化するコードと違い退屈に感じてしまって
全体的に興味が持てない感じです。講義を聞くのも苦痛というか眠くなってしまい続きません。
多分、イメージが出来ていないせいだと思うので再度チャレンジしてみます。

そういえば、最近Cellsを使うようになったのですが、VBAを学び始めの頃は全くなじめずさっぱり理解できなかったのですが
今では、決め打ちはRange、大量データの書き出しはCellsというような使い分けができるようになったのも
直感的に理解できるRangeを使い倒したことによる効果が大きいんだろうなと思いました。
最初にCellsから入っていたら、混乱して今頃「やっぱり私には無理だー」と諦めていたはずなので
本当に、Rangeの理解を最初に深められて良かったなーと感じてます。


>
>
>
>>小川さん
>>
>>ご返答ありがとうございます。
>>
>>>受講相談メール、ということでしょうか。
>>はい、その通りです。
>>>いただいたプログラムを見る限り、発展編2と外部連携、両方あったほうがよさそうです。
>>まさに今日、基幹システムを開発したメーカーで研修を受けてきました。
>>もう何年も放置され続けた、誰も手を付けない、付ける気も無かった仕事が回って来そうな不穏な空気です。
>>イベントとフォーム講座でつまづいてしまい、更に上位コースとなるとかなり悩みますが、前向きに検討させて頂きます。
>>数年前までOSやインストールが何かも分からないほどPCには疎かったのですが、
>>当時を知る人からすると恐らく同じ人だとは思わないでしょうね。
>>
>>添削とかもしていただけるんですか。
>>今現在、offsetで見つけたターゲットを書き出すので四苦八苦中でして
>>近い内にお願いさせて頂くかもなので宜しくお願い致します。
>

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

[6471]

塩野 勝大さんからの投稿です。

改めてブックを添付しました。モジュール3にマクロが入っているかと思います。個人用マクロブックに入っているのでは?の意味がちょっと難しくてわかりませんでした。
あと、コードを貼り付けました。
Sub rensyumacro()
Dim foldername
Dim filenama
Dim gyo
foldername = Workbooks("全部1つ").Sheets("部署情報").Range("D2").Value
filename = Workbooks("全部1つ").Sheets("部署情報").Range("E2").Value
Workbooks("全部1つ").Sheets(Array("歳入", "歳出")).Select
Workbooks("全部1つ").Sheets("歳出").Activate

Workbooks("全部1つ").Sheets(Array("歳入", "歳出")).Copy
ActiveWorkbook.SaveAs filename:= _”この部分でエラーになってしまいます”
"C:\Users\shionokatsuhiro\Documents\01-課題一式\" & foldername & "\" & filenama, FileFormat:= _
xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False

Workbooks("sample").Sheets("歳出").Select
Workbooks("sample").Sheets("歳出").Range("A23:D23").Select
Selection.Delete Shift:=xlUp

Workbooks("sample").Sheets("歳入").Select
Workbooks("sample").Sheets("歳入").Range("A23:D23").Select
Selection.Delete Shift:=xlUp

Workbooks("sample").Save
Workbooks("sample").Close

End Sub
エラー内容です
実行時エラー1004
ファイルにアクセスできません。次のいずれかを行ってみてください。
?指定したフォルダがあることを確認します→指定したフォルダはあると思います。
?ファイルを含むフォルダが読み取り専用になっていないことを確認します→読み取り専用だとは思ってません。(そんな処理の仕方しりません)
?ファイル名及びパス名が半角で218文字より長くないことを確認します→そんなに長くありません

グーグルでも調べてみたのですが、それらしいものがありませんでした。

私もわからくて必死です。
力を貸していただけないでしょうか。

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

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

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

動画で分かりやすく解説されていた。
先に進むことに期待ができる。

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

[6463]

塩野 勝大さんからの投稿です。


ファイルを添付しました。モジュール1から4まであるはずなんですけど。。。
コードも貼り付けました。
こんな感じでよろしいでしょうか?

Sub rensyumacro()
Dim foldername
Dim filename
Dim gyo
foldername = Workbooks("全部1つ").Sheets("部署情報").Range("D2").Value
filename = Workbooks("全部1つ").Sheets("部署情報").Range("E2").Value
Workbooks("全部1つ").Sheets(Array("歳入", "歳出")).Select
Workbooks("全部1つ").Sheets("歳入").Activate

Workbooks("全部1つ").Sheets(Array("歳入", "歳出")).Copy
ActiveWorkbook.SaveAs filename:= _
"C:\Users\shionokatsuhiro\Dropbox\" & foldername & "\" & filename, FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

Workbooks("rensyu").Sheets("歳出").Select
Workbooks("rensyu").Sheets("歳出").Range("A23:E23").Select
Selection.Delete Shift:=xlUp

Workbooks("rensyu").Sheets("歳入").Select
Workbooks("rensyu").Sheets("歳入").Range("A23:D23").Select
Selection.Delete Shift:=xlUp

Workbooks("rensyu").Save
Workbooks("rensyu").Close

End Sub

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

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

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

お世話になります。
並べ替えについて質問です。
会社で2007 自宅で2010 使用します。
みなさんのやり取りで(自分でもやってみました) 2007以降は自動記録が複雑になってます。
結局のところ 2003バージョンの 下記のみでも2007/2010できちんと並べ替えができます。
下記を覚えて 日々の仕事はしますが(会社では下記の単純並べ替えがほとんどです)
2007以降のバージョンのも覚える必要があるのでしょうか。
自動記録して 簡単にする方法を 理解しておく程度でいいのでしょうか。

Sub Macro3_3( )
Dim max As Long
max = Range("b" & ActiveSheet.Rows.Count).End(xlUp).Row
 Range("A1:G" & max).Sort _
Key1:=Range("B1"), _
Order1:=xlAscending, _
Header:=xlYes
End Sub

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


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

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

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

トップへ