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

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

[11334]If文とForNext構文を組み合わせる

2019-04-11 14:45:18 受講生さんからの投稿です。

お世話になります。ご無沙汰しております。
For Nextステートメントについて質問があるのですが、For NextステートメントはRange(“A” & i )のように書いてはいけないと今日言われました。
Cells( 1 , i ) のように書きなさいと。
理由としてはRangeでかくと
① 処理が遅い
② そんなコードを書いていると笑われる
との事です。

私は小川先生の講座で1年以上VBAについて勉強してきましたのでこの書き方に違和感はありませんでした。
ちなみにCellsの書き方も知っています。
そこで、小川先生がこの書き方でやってきているのは初心者に理解しやすいようにですか?上級者向けの講座ではCellsを使っているのでしょうか?
Rangeの書き方でも行の処理ならできるので良いかなと思っていたのですが今日、思いっきりその書き方はダメだよと言われました。
と、言うのも現在、東京都が行っている職業訓練というものでExcel VBA実践コースというのを受講しています。
2月から3ヶ月間のコースでまもなく終わりを迎えます。
その講師の先生から言われました。
その先生の教え方はものすごくわかりにくく、受講者のほとんどが授業を聞かずに自分たちでテキストを読み込んだり、ネットで調べながら勉強していたほどお世辞にも優秀な講師とは言えないです。
どこがダメか具体的に教えて欲しいといっても処理速度が遅いのと田中先生(Office田中)が言っていたからとしか説明してもらえませんでした。
私の中では信頼の置けない講師の方なので腑に落ちなくて・・・。
小川先生に直接質問させて頂きました。
今後もっと複雑なコードを書くようになったらRangeでの書き方はしなくなっていくのでしょうか?
ご教授、お願いいたします。

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

[11144]If文とForNext構文を組み合わせる

2019-02-13 18:49:03 jinoseさんからの投稿です。

よい復習になりました!

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

[10207]If文とForNext構文を組み合わせる

2018-07-03 12:50:58 大ちゃんさんからの投稿です。

自分はVBAに限らず、物事をいっぺんにやってしまう癖があるので、小さいことから広げていくということだけでも目からうろこでした。こういう思考の癖を自分にしっかり染み込ませれば、VBAに限らず人生のなかで達成したいと思っている目標も達成できるのではと、意図せず人生について考えるきっかけになりました(笑)

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

[9174]If文とForNext構文を組み合わせる

2017-12-04 15:08:35 ガラパゴスタディー吉川さんからの投稿です。

マクロから離れていたので、最初はちょっと思い出すのに時間がかかりましたが、手を動かすとすっと記述できました。
また演習問題の後に動画も視聴しました。
ハナコのステップは、なんとなくはそのステップでやっていましたが、
しっかりとそのステップを踏むことを意識することで、
頭の中で考えてから記述するより整理できると思いました。

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

[9168]If文とForNext構文を組み合わせる

2017-12-04 13:43:41 ガラパゴスタディー吉川さんからの投稿です。

マクロから離れていたので、最初はちょっと思い出すのに時間がかかりましたが、手を動かすとすっと記述できました。
また演習問題の後に動画も視聴しました。
ハナコのステップは、なんとなくはそのステップでやっていましたが、
しっかりとそのステップを踏むことを意識することで、
頭の中で考えてから記述するより整理できると思いました。

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

[8825]If文とForNext構文を組み合わせる

2017-09-03 15:34:51 受講生さんからの投稿です。

for next 構文
if 文の練習をした。

めちゃくちゃ時間がかかったけど、声に出して練習することで
for next 構文の形が言えるようになってきた。

まずは、求めたい(答えを返したい)セルに入るマクロを書くところから
スタートだ。

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

[8720]If文とForNext構文を組み合わせる

2017-08-15 12:22:18 浦山大さんからの投稿です。

この問であれば淀みなく記載できるようになりました。
[1]書式も付けてみたかったので、自分なりに調べて動くマクロを作りました。

Sub jouken_hantei1()
        Dim k
        For k = 2 To 11
        If Range("c" & k).Value > 100 Then          'c2が100より大きかったら(条件)
             With Range("A" & k)
                .Value = "○"                                   'A2を「○」にする(処理)
                .Font.Name = "meiryo ui"
                .Font.Color = vbBlue
                .Font.Size = "15"
             End With
        Else
             With Range("A" & k)
                .Value = "×"                                   'A2を「×」にする(処理)
                .Font.Name = "meiryo ui"
                .Font.Color = vbRed
                .Font.Size = "15"
             End With
        End If
    Next
End Sub


with~はネットで調べました。
似た要領で、元に戻す方法もマクロを作ってみました。

Sub jouken_hantei1_sakujo()
    Dim k
    For k = 2 To 11
        With Range("A" & k)
            .Value = ""
            .Font.Name = "MS明朝"
            .Font.Color = vbBlack
            .Font.Size = "10"
        End With
    Next
End Sub


※元に戻す時に、「標準設定に戻す」って簡単に書けないか?
と感じました。

調べているとありそうですが、きっともっと先のことだろうと考えます。
今は基礎を固める時期かと思いますので、まず課題として与えられていることを吸収しに次に行きたいと思います。

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

[8715]If文とForNext構文を組み合わせる

2017-08-14 21:08:03 浦山大さんからの投稿です。

この部分については、
模範解答をちらっと1回見ただけでなんとか出来ました。

気づいたこと:
※問題毎に一つ一つ「はじめから」書いた方が練習になる
→途中、「ん?コピペして数字変えたら問題1→2は一瞬でできるな」って思いましたが、熟す数の方が大切かと思ったので全部呪文を唱えながら一から実施という流れに変えました。

このファイルを1回実施するだけで7つくらいマクロを書けました。

※「何もしない」はElse書かなくてもOK([2])
最初にチャレンジした際は「何もしないけどElse書くのか?」と思って記載したままマクロ書きました。
だけど、あとで「…なくても動くんじゃないか?」と思って試したらElseなくても動きました。
そして、動画を拝見したら省いてよしとのことでした。

多少前後感がありますが、
★問題見て困る→試行錯誤する→通勤時(帰宅時)に動画見る
→先生の解説聞いてあとから全部理解する
→明日、また同じ問題に取り組む

というスパイラルで進めていけそうです。
できれば、事前に次の動画まで見、
「軽く予習をする」を★部分に入れてスパイラル回せるようにしていきます。

※先日頂いたコメントの自分なりの添削、
やりますのでお待ち下さい。

総じて、取り組む前に作戦を考えることと、試行錯誤することが楽しいです。

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

[3674]If文とForNext構文を組み合わせる

2015-01-23 20:08:16 佐藤 あゆむさんからの投稿です。

小川先生、こんばんは。
キーボードの音がよく入っていたおかげで、小川先生のタイピングスピードがどれだけ速いかが実感できましたヾ(*≧∀≦*)ノ

私もタイピングスピードが上がるように練習していきますo(`・д・´)o

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

[3357]If文とForNext構文を組み合わせる

2014-11-30 13:59:14 唐沢俊孝さんからの投稿です。

小川先生

もう一つ質問です。
動画のmondai1の回答 03のマクロ(以下)ですが、
dim gyo の後にAs Long と書かれています。
これは何か教えてください。

Sub kaitou03()
Dim gyo As Long
For gyo = 2 To 11
If Range(“C” & gyo).Value > 100 Then
Range(“A” & gyo).Value = “○”
Else
Range(“A” & gyo).Value = “×”
End If
Next
End Sub

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

[3356]If文とForNext構文を組み合わせる

2014-11-30 03:16:55 唐沢俊孝さんからの投稿です。

小川先生

別の質問です。
IF文で日付をの曜日が日曜日ならセルの色を赤にする といったマクロを以下書いたつもりでしたが、
小人ちゃんが動きませんでした。
エクセルにはあらかじめA3に201/11/30(日)と表記しています。
この表記は セルの書式→ユーザー定義 で yyyy/mm/dd(aaa) と設定し、A3には11/30 と打ち込みました。
やはり書式の(aaa)は曜日の文字として認識されないのでしょうか。

Sub dinichiro()

  If InStr(Range(“A3”).Value, “日”) > 0 Then
Range(“A3:F3”).Interior.Color = vbRed

End If
End Sub

仕事がらスケジュールを作成することが多く、土日祝はセル色を変えています。
現在は力技(ネット上で紹介されている条件付き書式で実施。祝日は、名前の定義で祝日のみを打ち込んだ日付を範囲選択し、これを条件付き書式で利用)ですが、
関数が複雑に入っているとファイルが重く、開くのに時間がかかったり、開かず強制終了が起こったりで困っています。
ちなみに現在のエクセルにはB列(B3~B100あたり)にMID(“月火水木金土日”,WEEKDAY(A3,2),1)の数式を入れて曜日を表記し、これを先ほどの条件付き書式で色つけしています。マクロも似たようなやり方になるのでしょうか(こちらもデータの型でしょうか)。

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

[3335]If文とForNext構文を組み合わせる

2014-11-25 01:28:10 唐沢俊孝さんからの投稿です。

小川先生

先生が動画でおっしゃっていたハナコのステップが呪文のように頭に出てきて(この動画の刷り込みは本当に感謝です!)、
私も口「箱(for next文,if文)をつくる。home shift ↓↓↓、tabでずらして切り取って、貼り付ける。あとは加工して終わり!」と言いながら
全くその通りにマクロが書けました。このおかげで、迷いなく、手が止まって考えることなくスラスラと!さらに小人ちゃんが動いてくれるので、
何度書いてもやみつきになりそうです!

Enshu00100_Basic.xls のmondai1でわからないことありましたので、ご指導お願いいたします。

質問1:
C8とC10をテンキーのマイナスで打ち込み「-」と表記しますと、以下のマクロではA8とA10に「○」と記入されます。 
このマクロは数値に対しての条件であるから、数値を除く文字が入ると誤作動を起こすと考えてよろしいでしょうか。

以下は動画でも開設された回答です。
Sub mondai1()
Dim ten
For ten = 2 To 11
If Range(“C” & ten).Value > 100 Then
Range(“A” & ten).Value = “○”
Else
Range(“A” & ten).Value = “×”
End If
Next
End Sub

Enshu00100_Basic.xlsのC列の書式設定は「通貨」で、C8とC10は「‐」表示されており、セルの書式設定で確認するとだと0と打ち込まれていました。
マクロは100以下の数値と認識し、正確に×と記入されました。

私は自分の練習用エクセルファイルにこの設問と似た感じのレイアウトをつくり、設問の表記を真似たつもりでしたが、C8とC10はテンキーのマイナスを打ち込み「-」と表記しました。
このときのセルの書式設定は標準でした、この条件で上記のマクロで実行しましたところマクロは100より大きいと認識し、A8とA10に○と記入されました。
C8とC10を空欄にしますとA8とA10ともに×と記入されました。セルの書式を「通貨」に変えて同様に確認しましたところ同様のことが起こりました。
ちなみに数値でない文字を入れると、すべてこのようになることを確認しました。

質問2:
エクセル知識がない私のような人間は元データに「0」をテンキー「-」と記入してしまうケースはあると思います。
(書式設定で¥を表記しているのに、打ち込み担当が一時変わって¥を書く人がいるかもしれない。)
そのミスをも防ぐマクロをif文に(C1~C11のセルの値が数値なら上記のif文を実行する、そうでなければ(文字列なら)C1~C11のセルの値に”入力ミス”と記入する)
といったマクロをかければと思いましたが、書けませんでした。こういったものは発展でのお話になりますでしょうか。これまでの基礎編が理解できていれば
対応できそうなマクロであればご教授お願いいたします。
(Len関数を組合せてうまくできないか考えましたが、数値もカウントしてしまいますので私では対応できませんでした)



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

[2655]If文とForNext構文を組み合わせる

2014-10-05 19:30:37 野村昭雄さんからの投稿です。

for next構文とif文が書けるようになると、マクロで作成するものの範囲が広がった感じです。
作成方法がハナコでやると簡単に作成出来て良いですね。

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

[2584]If文とForNext構文を組み合わせる

2014-09-29 23:19:17 浜口 智之さんからの投稿です。

「ハナコ」ステップの確認、またIF文についての理解ができました。
今回の課題は、IF文の理解がまだ完全ではなく、先に動画をみて、その後に
その手順を自分で再現してみるというステップで学習してみました。
次回からは、まず、課題に挑んでみたいと思います。
発展編講座をうけられるスタート地点に到達できるように
引き続き学習進めていきたいと思います。
よろしくお願いします。

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

[1786]If文とForNext構文を組み合わせる

2014-07-21 05:11:08 受講生さんからの投稿です。

1週間後のメールありがとうございました。遅まきながら今日から復習に取り組みます。
ハナコのステップを忘れていましたが、すぐ思い出せました。
今日からまたよろしくお願いいたします。

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

[1780]If文とForNext構文を組み合わせる

2014-07-20 13:41:34 明石 照伸さんからの投稿です。

お世話になります。遅まきながらやっと1回目の動画を通して見ることができました。
この作成順(はなこ)はもっとも単純なところから積み上げていくので、わかりやすいだけでなく、出戻りが無く、確実ではやい手順だと感じました。身体に染み込ませるように練習したいと思います。
引き続きよろしくお願いいたします。

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

[1081]If文とForNext構文を組み合わせる

2014-03-18 01:00:21 薄木洋祐さんからの投稿です。

小川さんの速さについていけるようにショートカットキーも使ってマウスを使わないようにしていきます。

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

[943]If文とForNext構文を組み合わせる

2014-01-09 08:33:41 受講生さんからの投稿です。

復習するたびに少しずつ力がついてきていることを感じます。

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


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

 

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

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

トップへ