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

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

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

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

tomoki1105さんからの投稿です。

こんにちは。

Control ToolのOptionButtonについて質問です。

OptionButtonをフォームに張り付けると、張り付けたOptionButtonの内一つしか選択できませんが、選択するカテゴリーを複数設定したい場合は設定可能なのでしょうか。
例えば性別に加え、会員もしくは非会員等のOptionのグループを加えたい場合の方法を教えて頂きたく。

宜しくお願い致します。

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

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

古口梨絵さんからの投稿です。

小川先生(事務局御中)
お世話になっております。
また新たな地図を手に入れることができ、楽しんで学んでます。

ひとつご確認願います。
イベントとフォーム講座演習第1回、音声が聞こえません。
YoutubeもMP4もです。
他の講座では音声が聞こえているので、パソコン側の問題とは違うような気がしてます。
音声レベルゲージのようなものは動いているのですが。

音声なしでも、Sheet2の模範例を見て「さすが!」と唸ることはできました。

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

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

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

小川さん

質問させてください。
より使いやすくするために、最後に以下の処理をしてみました。
ユーザーフォームを表示させるために、ワークシート上にボタンを作成し
ボタンを押すとユーザーフォームが表示される。

Sub ボタン1_Click()


frmMain.Show

End Sub

このような方法で表示させる方法は一般的ですか?
それとも、あとからユーザーフォームをワークシート上に張り付けることはできますでしょうか。
どうぞよろしくお願いいたします。


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

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

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

小川先生
こんばんは。質問させてください。
以下の講座を一通り学習いたしました。そして二回目の復習をしようとしております。
******************************************
①VBA基礎編、基礎編フォローアップ
②VBA発展編1、発展編1フォローアップ
③イベントとフォーム講座、演習
******************************************
上記を前提に実務で下記のプログラムを作成したいと思っております。
二回目を復習するにはどこの箇所を重点的に復習しましたら以下のプログラムを作成できますでしょうか。
それとも①-③を学習しただけでは不十分でしょうか。

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

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

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

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

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

小川先生 こんにちは。
基本的なことなのですが、調べてもわからなかったので教えてください。
プログラムを書くときにわかりやすいように背景色や、キーワードの文字の色を変更するのはツール→オプション→エディターの設定で変更できました。
しかし、カーソルの位置がいつもわかりにくく、太目に変更したいと思ったのですがどのように変更すればいいでしょうか。
PC自体の設定で変更するものでしょうか。
もしご存じでしたら教えてください。

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

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

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

今までVBAの教本よりも分かりやすくて学習しやすかったです。ありがとうございました。
まだ小川先生のプログラムのソースを見ながらでないと出来ないので何度も繰り返して自分の力として身につけられるように努力します。

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

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

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

質問です。よろしくお願いします。
TextBox内で入力時にカーソルの位置が表示されなくて困ってます。
この動画の2分くらいのところで、"鳥取 慎太郎”のデータをいじっているときに点滅しているやつです。

ちなみにexcelは2010でwindows7 Service Pack1です。

追伸
フラグ制御もわかりました。
スタック領域不足になって、データ壊れてみたいなことを
やってたので、制御なしの危険さも良くわかりました。

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

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

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

小川様
演習問題の作成途中でハマった点について質問です。
D列(Priority1)に1~5以外の数字を入れると、マクロ実行中のまま応答しなくなり、
タスクマネジャーから強制終了しました。

質問1
 多分for ~ next 構文の中でE列の数字を修正した時にそこで別イベントが発生して
 ということなんだと思いますが、それが原因でしょうか。
 1~5入力時も同じようなことをやっているので何が違うんだろうといのがよくわかりません。
 結果的に、select case 構文内にExit for を追加して抜け出ることができたんですが・・・。

質問2
 中断できずに強制終了してしまったので、仕事中に発生すると少しいやだなと思った
 んですが、フラグ制御についてよくわかってない段階でfor ~ next 構文を使うのは
 あまりよくないんでしょうか。一般論というか作法的に。
 とはいっても実務的には使いそうですので注意点等あったらお願いします。


Private Sub Worksheet_Change(ByVal Target As Range)

Dim c As Long
Dim sRow, sClm, tRow As Long
sRow = 10
sClm = 4
'行と列の制限によるExit
tRow = Target.Row
If tRow < sRow Then
Exit Sub
End If

If Target.Column < sClm Then
Exit Sub
End If

'新規入力の場合B、C列に時刻入力
If Range("B" & tRow).Value <> Now Then
Range("B" & tRow).Value = Now
Range("C" & tRow).Value = Now
Else
Range("C" & tRow).Value = Now
End If


'[4]
'D列に数値の1~5のどれかの値を入力すると、値が入力された行のA列~G列の背景色は、セルD2~E6の対応する値の色になる。
'ただし、それ以外の値を入力したときは、色はなくなる。
'[5]
'D列に数値の1~5のどれかの値を入力すると、セルD2~E6に記載されている、その数値に対応した文字列がE列に記入される。
'ただし、それ以外の値を入力した場合は、E列の値はなくなる。

For c = 2 To 6

Select Case Range("D" & tRow).Value
Case Is > 5
Range(Range("A" & tRow), Range("G" & tRow)).Interior.Color = xlNone
Range("E" & tRow).ClearContents
Case Is < 1
Range(Range("A" & tRow), Range("G" & tRow)).Interior.Color = xlNone
Range("E" & tRow).ClearContents
End Select

If Range("D" & c).Value = Range("D" & tRow).Value Then
Range(Range("A" & tRow), Range("G" & tRow)).Interior.Color = _
Range("D" & c).Interior.Color

Range("D" & tRow).Offset(, 1).Value = _
Range("D" & c).Offset(, 1).Value
End If
Next

End Sub



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

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

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

小川様
演習問題の作成途中でハマった点について質問です。
D列(Priority1)に1~5以外の数字を入れると、マクロ実行中のまま応答しなくなり、
タスクマネジャーから強制終了しました。

質問1
 多分for ~ next 構文の中でE列の数字を修正した時にそこで別イベントが発生して
 ということなんだと思いますが、それが原因でしょうか。
 1~5入力時も同じようなことをやっているので何が違うんだろうといのがよくわかりません。
 結果的に、select case 構文内にExit for を追加して抜け出ることができたんですが・・・。

質問2
 中断できずに強制終了してしまったので、仕事中に発生すると少しいやだなと思った
 んですが、フラグ制御についてよくわかってない段階でfor ~ next 構文を使うのは
 あまりよくないんでしょうか。一般論というか作法的に。
 とはいっても実務的には使いそうですので注意点等あったらお願いします。


Private Sub Worksheet_Change(ByVal Target As Range)

Dim c As Long
Dim sRow, sClm, tRow As Long
sRow = 10
sClm = 4
'行と列の制限によるExit
tRow = Target.Row
If tRow < sRow Then
Exit Sub
End If

If Target.Column < sClm Then
Exit Sub
End If

'新規入力の場合B、C列に時刻入力
If Range("B" & tRow).Value <> Now Then
Range("B" & tRow).Value = Now
Range("C" & tRow).Value = Now
Else
Range("C" & tRow).Value = Now
End If


'[4]
'D列に数値の1~5のどれかの値を入力すると、値が入力された行のA列~G列の背景色は、セルD2~E6の対応する値の色になる。
'ただし、それ以外の値を入力したときは、色はなくなる。
'[5]
'D列に数値の1~5のどれかの値を入力すると、セルD2~E6に記載されている、その数値に対応した文字列がE列に記入される。
'ただし、それ以外の値を入力した場合は、E列の値はなくなる。

For c = 2 To 6

Select Case Range("D" & tRow).Value
Case Is > 5
Range(Range("A" & tRow), Range("G" & tRow)).Interior.Color = xlNone
Range("E" & tRow).ClearContents
Case Is < 1
Range(Range("A" & tRow), Range("G" & tRow)).Interior.Color = xlNone
Range("E" & tRow).ClearContents
End Select

If Range("D" & c).Value = Range("D" & tRow).Value Then
Range(Range("A" & tRow), Range("G" & tRow)).Interior.Color = _
Range("D" & c).Interior.Color

Range("D" & tRow).Offset(, 1).Value = _
Range("D" & c).Offset(, 1).Value
End If
Next

End Sub



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

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

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

小川様
演習問題の作成途中でハマった点について質問です。
D列(Priority1)に1~5以外の数字を入れると、マクロ実行中のまま応答しなくなり、
タスクマネジャーから強制終了しました。

質問1
 多分for ~ next 構文の中でE列の数字を修正した時にそこで別イベントが発生して
 ということなんだと思いますが、それが原因でしょうか。
 1~5入力時も同じようなことをやっているので何が違うんだろうといのがよくわかりません。
 結果的に、select case 構文内にExit for を追加して抜け出ることができたんですが・・・。

質問2
 中断できずに強制終了してしまったので、仕事中に発生すると少しいやだなと思った
 んですが、フラグ制御についてよくわかってない段階でfor ~ next 構文を使うのは
 あまりよくないんでしょうか。一般論というか作法的に。
 とはいっても実務的には使いそうですので注意点等あったらお願いします。


Private Sub Worksheet_Change(ByVal Target As Range)

Dim c As Long
Dim sRow, sClm, tRow As Long
sRow = 10
sClm = 4
'行と列の制限によるExit
tRow = Target.Row
If tRow < sRow Then
Exit Sub
End If

If Target.Column < sClm Then
Exit Sub
End If

'新規入力の場合B、C列に時刻入力
If Range("B" & tRow).Value <> Now Then
Range("B" & tRow).Value = Now
Range("C" & tRow).Value = Now
Else
Range("C" & tRow).Value = Now
End If


'[4]
'D列に数値の1~5のどれかの値を入力すると、値が入力された行のA列~G列の背景色は、セルD2~E6の対応する値の色になる。
'ただし、それ以外の値を入力したときは、色はなくなる。
'[5]
'D列に数値の1~5のどれかの値を入力すると、セルD2~E6に記載されている、その数値に対応した文字列がE列に記入される。
'ただし、それ以外の値を入力した場合は、E列の値はなくなる。

For c = 2 To 6

Select Case Range("D" & tRow).Value
Case Is > 5
Range(Range("A" & tRow), Range("G" & tRow)).Interior.Color = xlNone
Range("E" & tRow).ClearContents
Case Is < 1
Range(Range("A" & tRow), Range("G" & tRow)).Interior.Color = xlNone
Range("E" & tRow).ClearContents
End Select

If Range("D" & c).Value = Range("D" & tRow).Value Then
Range(Range("A" & tRow), Range("G" & tRow)).Interior.Color = _
Range("D" & c).Interior.Color

Range("D" & tRow).Offset(, 1).Value = _
Range("D" & c).Offset(, 1).Value
End If
Next

End Sub



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

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

仲村 修治さんからの投稿です。

いつも勉強させてもらっています。
完成形のマクロで以下のif文について解説していただけると幸いです。
あまり見たことのないif文なのでよろしお願いします。

If Not r Is Nothing Then
''''''''''''''''
Else
''''''''''''''''
End If

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


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

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

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

トップへ