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

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

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

2017-06-11 11:42:01 受講生さんからの投稿です。

現在入門書を読んでいるところですが、こちらは動画なので分かり易いです。
マクロを学ぶメリットが解説してあり、モチベーションが上がりました。

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

[8322]ファイル操作の練習

2017-06-08 18:51:01 受講生さんからの投稿です。

ダウンロードしたサンプルデータなのですが、動画で説明されているものと中身が違うようなのですが…

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

[8321]ファイル操作の練習

2017-06-08 18:51:01 受講生さんからの投稿です。

ダウンロードしたサンプルデータなのですが、動画で説明されているものと中身が違うようなのですが…

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

[8320]ファイル操作の練習

2017-06-08 18:47:34 受講生さんからの投稿です。

ダウンロードしたサンプルデータなのですが、動画で説明されているものと中身が違うようなのですが…

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

[8309]式と戻り値_1

2017-06-07 21:44:02 受講生さんからの投稿です。

お世話になっております。
siryoフォルダ内にA-0、A-1、A-2とあり、同名フォルダや同名ファイルがある場合は、どれを使用すればいいのでしょうか。

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

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

2017-06-05 20:07:56 受講生さんからの投稿です。

Excelが苦手でしたが、とても勉強になりました。

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

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

2017-06-05 19:21:04 受講生さんからの投稿です。

わかりやすかったです。
早く使えるようになりたいと思えました。

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

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

2017-06-05 07:54:19 受講生さんからの投稿です。

今まで何度かマクロにトライしてきたのですが、難しくマスター出来ませんでした。縁がありこの口座にたどり着いたので、今一度頑張ります。

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

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

2017-06-05 00:16:55 受講生さんからの投稿です。

短い時間の中にこれから学習しようとする初学者のモチベーションを上げる内容でした。

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

[8274]基礎講座第1章1 - マクロの入ったファイルを開くときの注意点

2017-05-31 18:43:36 受講生さんからの投稿です。

導入編を受講させていただき、レクチャーが分かりやすいし
コビトちゃんの絵がかわいいので基礎編に進むことに決めました。

一通り基礎編が終わったら、自分の今の業務範囲の中で
どこをマクロで解決できるか、精査してみようと思います。
今から楽しみです。

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

[8261]基礎講座第4章9 - If文のその他の構文その1

2017-05-29 13:25:37 受講生さんからの投稿です。

画像データをワークシートに張り付けるマクロを教えてください。

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

[8249]基礎講座第4章10 - If文のその他の構文その2

2017-05-27 18:58:23 受講生さんからの投稿です。

お世話になります。
IF Elseif Endif 文のところで、Kiso_04_03ifThen_drill.xls-[daihon0010(コード)]の練習7の問題は、
If文だとおもうのですが、ヒントにIf...Elseif...Elseif...Else...End Ifを使うようになっているのですが、IF...Else...EndIFじゃないのですか?よくわかりません。

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

[8248]簡単なマクロを書いてみる - プログラムの読み方

2017-05-27 15:36:59 青柳 勝さんからの投稿です。

面白くなって来ました。「.」と「=」の意味はよく頭に入れます。

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

[8247]簡単なマクロを書いてみる - プログラムの読み方

2017-05-27 14:02:18 青柳 勝さんからの投稿です。

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

[8240]転記先シートを生成してデータを流し込む。

2017-05-26 16:21:08 柴田 邦彦さんからの投稿です。

[2]と[3]の問題について質問します。
F8で1行ずつマクロを走らせたときに、
Sheets("template").Copy After:=Sheets(2)
のあとでF5を押したときのように一気に走ってしまします。
なぜでしょうか?
当方だけの現象でしょうか?

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

[8238]エクセル画面でメニューを選択できない場合の対処法

2017-05-26 15:29:21 ゲストさんからの投稿です。

お世話になっています。
下記のプログラムで実行しましたが、実行後の結果はプログラムが動いていない。
何が問題なのでしょうか? sub matching()が動きません。

下記 sub InvoiceUK転記()を添付します。

=======================================
Sub InvoiceUK転記()


Dim i As Integer
Dim 最終行 As Integer


最終行 = Worksheets("出荷一覧UK").Range("A1").End(xlDown).Row


For i = 3 To 最終行


With Worksheets("Invoice UK")



.Range("A" & i * 5 + 11).Value = Worksheets("出荷一覧UK").Range("A" & i).Value
.Range("A" & i * 5 + 12).Value = Worksheets("出荷一覧UK").Range("B" & i).Value
製品名 = .Range("A" & i * 5 + 12).Value
.Range("F" & i * 5 + 12).Value = Worksheets("出荷一覧UK").Range("C" & i).Value

matching


End With



Next

End Sub

Sub matching()


Dim data

For data = 2 To 700

If Worksheets("Invoice UK").Range("A" & i * 5 + 12).Value = Worksheets("BrooksItemDatabase").Range("A" & data) Then

Worksheets("Invoice UK").Range("A" & i * 5 + 13).Value = Worksheets("BrooksItemDatabase").Range("E" & data).Value
Worksheets("Invoice UK").Range("A" & i * 5 + 14).Value = Worksheets("BrooksItemDatabase").Range("G" & data).Value
Worksheets("Invoice UK").Range("E" & i * 5 + 12).Value = Worksheets("BrooksItemDatabase").Range("F" & data).Value
Worksheets("Invoice UK").Range("H" & i * 5 + 12).Value = Worksheets("BrooksItemDatabase").Range("C" & data).Value

End If

Next




End Sub

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

[8232]エクセル画面でメニューを選択できない場合の対処法

2017-05-26 11:29:09 受講生さんからの投稿です。

> 下記 subプログラムのsub 転記()の中でVlookup関数を
> マクロでプログラムする場合、"Set 検索する値 = Range("A" & i * 5 + 12).Value"の行で"オブジェクトが必要
> です”のエラーメッセージがでました。
> 何が問題か教えてください。
>
> sub プログラム
> =======================================
> Sub InvoiceUK転記()
>
>
> Dim i As Integer
> Dim 最終行 As Integer
>
>
> 最終行 = Worksheets("出荷一覧UK").Range("A1").End(xlDown).Row
>
>
> For i = 3 To 最終行
>
>
> With Worksheets("Invoice UK")
>
>
>
> .Range("A" & i * 5 + 11).Value = Worksheets("出荷一覧UK").Range("A" & i).Value
> .Range("A" & i * 5 + 12).Value = Worksheets("出荷一覧UK").Range("B" & i).Value
> 製品名 = .Range("A" & i * 5 + 12).Value
> .Range("F" & i * 5 + 12).Value = Worksheets("出荷一覧UK").Range("C" & i).Value
>
> 抽出
>
>
> End With
>
>
>
> Next
>
> End Sub
>
> Sub 抽出()
>
>
>
> Dim 検索する値 As Range, 検索する範囲 As Range
> Dim 検索結果1 As String, 検索結果2 As String, 検索結果3 As String, 検索結果4 As String
> Dim データベースシート As Worksheet
>
> Set データベースシート = Worksheets("BrooksItemDatabase")
> Set 検索する値 = Range("A" & i * 5 + 12).Value
> Set 検索する範囲 = Range(データベースシート.Range("A2"), データベースシート.Range("G700"))
>
> 検索結果1 = Application.WorksheetFunction.VLookup(検索する値, 検査する範囲, 5, False)
> 検索結果2 = Application.WorksheetFunction.VLookup(検索する値, 検査する範囲, 7, False)
> 検索結果3 = Application.WorksheetFunction.VLookup(検索する値, 検査する範囲, 6, False)
> 検索結果4 = Application.WorksheetFunction.VLookup(検索する値, 検査する範囲, 3, False)
>
> Worksheets("Invoice UK").Range("A" & i * 5 + 13).Value = 検索結果1
> Worksheets("Invoice UK").Range("A" & i * 5 + 14).Value = 検索結果1
> Worksheets("Invoice UK").Range("E" & i * 5 + 12).Value = 検索結果1
> Worksheets("Invoice UK").Range("H" & i * 5 + 12).Value = 検索結果1
>
>
>
> End Sub
>

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

[8220]エクセルマクロ・VBA「イベントとフォーム」講座の概要

2017-05-26 02:12:04 受講生さんからの投稿です。

本動画中のform_demo.xlsが教材の中にありませんでした。
zipファイル中に動画と同じになるように保存頂けないでしょうか。

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

[8197]基礎講座第4章10 - If文のその他の構文その2

2017-05-24 21:53:44 受講生さんからの投稿です。

お世話になります。
誠に申しわけございませんが、
kiso04_03IFThen_drill.xls-[daihon0010(コード)]の練習問題を
していますが、回答はどこに記載しているのかがわかりません。
教えてください。宜しくお願いします。

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

[8161]タイピング講座 上達のステップ

2017-05-23 21:17:29 受講生さんからの投稿です。

ショートカットキーを使う場合、すなわち、CtrlキーやAltキーを使う場合にはどのように指を使うのがよいのでしょうか?

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

[8149]出現回数を数える。CountIf関数がやっていることをマクロで書くと?

2017-05-22 13:37:42 受講生さんからの投稿です。

Sub nantoka()
Dim goukei
Dim gyo
Dim migi

For migi = 4 To 6
goukei = 0
For gyo = 4 To 18
If Range("C" & gyo).Value = Range("E" & migi) Then
goukei = goukei + 1

End If
Next
Range("F" & migi).Value = goukei
Next
End Sub

お世話になります。
Range("F" & migi).Value = goukei
のプログラムを書くときに、
NextとNextの間に書くことが、
自力で書くときに迷います。
homeshift↓↓↓で選択するとき
最初のForNext構文が完成させたときに、
出力先を書くことで、別物と判断している
みたいで、ワンポイントアドバイス
よろしくおねがいします。

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

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

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

相馬一進さんのお金の心理学で知りました。
エクセルマクロという言葉は知っていたけれど、実際どのようなものか全く知らなかったので動画を見てびっくりしました。
現在、パートで事務の仕事をしていますがPCに長けた人材が居なく、見よう見真似で上司が作ったエクセルに入力・・・しかも無駄と思われる作業の多さと、関数の間違いなどで日々ストレスです。
動画を見て、マクロで解決できるかも!と思いました。

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

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

2017-05-19 10:13:13 ゲストさんからの投稿です。

分かりやすい!
これがこの動画を見た時の一番の感想です

次も早く見たい!のですぐ次を見たいと思います
素晴らしい動画をありがとうございます

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

[8138]イベントとフォーム講座演習第2回

2017-05-15 21:15:47 受講生さんからの投稿です。

お世話になっております。
新規登録の場合も、チェックボックスはnullにはなりませんでした。
これもバージョンの違いなのでしょうか?当方は2016を使用しています。

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

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

2017-05-14 08:41:52 受講生さんからの投稿です。

[3]
[2]で作ったマクロを改変し、さらに、セルD10、セルE10に各列の合計額を記入するマクロとしなさい についてセルD10 にD4からD9の合計額を表示するというマクロを作る場合にはどのような式で書くことができますか?
[1][2]については以下のようなマクロで問題なく動いたのですが、D列の値をそれぞれの項目について値を入れていくというマクロ(累積値ではなく)になったので、合計のマクロが作れませんでした。Range("D10").value=Sum(”D4:D9”).valueというのも試しましたが、15100という値のみ入りました。アドバイスいただければ幸いです。

Sub test()
 Dim harai
 For harai = 4 To 9
 Dim koumoku
 koumoku = Range("B" & harai).Value
 Dim iwai
 iwai = Range("D" & harai).Value
 Dim retsu
 For retsu = 4 To 10
    If Range("I" & retsu).Value = koumoku Then
    iwai = iwai + Range("J" & retsu).Value
    End If
  Next
  Range("D" & harai).Value = iwai
  Range("E" & harai).Value = Range("D" & harai).Value + Range("C" & harai).Value
  Next
  
End Sub

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

[8123]コマンドボタン、ラベル、テキストエリアに固有のプロパティ

2017-05-14 08:16:59 受講生さんからの投稿です。

お世話になっております。
フォーム frmTextArea 内で使用されている bNocheck という変数は、値を代入後も使用されていないように思えるのですが、必要なのでしょうか?

[ 続きを読む ]  返信件数: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\01-課題一式"
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\hasegawa\Desktop\ensyu_copy\01-課題一式\" & sakuseisaki & "\" & filen & "", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

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

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

[8117]発展編1 フォローメールセミナー 第30回

2017-05-12 19:06:15 受講生さんからの投稿です。

wsfunc3.xlsにおいて、
「DaverageEach ws(c), r(0, c), r(1, c)」
と書き、サブプロシジャーを呼び出していますが、配列だけでなく、変数もこのように書けるのですか?
 そうすると、モジュールレベル変数とサブプロシジャーレベル変数を区別しなくても良いし、あと受け渡しをした変数が明示できる分、分かりやすくなると思いました。

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

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

2017-05-12 18:06:44 受講生さんからの投稿です。

8114→納得。スッキリしました。ありがとうございます。

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

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

2017-05-12 11:23:13 受講生さんからの投稿です。

市販の本で勉強しようとして数ページで挫折しました。
とてもわかりやすい動画なので今度は続くかもしれない、と期待しています。
よろしくお願いいたします。

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


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

 

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

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

トップへ