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

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

[8741]基礎講座第1章6 - 手書きする演習

2017-08-18 08:54:12 ゲストさんからの投稿です。

このレッスン以降も個人レッスンのように声出してすすめていきます。理解深まるような気がします。英語の音読の効果と同じように見受けられます。

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

[8740]基礎講座第1章5 - 算術演算子

2017-08-18 08:27:52 ゲストさんからの投稿です。

以前セキュリティの本でModの計算の説明が難しくて苦手意識ありまくりでしたが、今回先生の説明でようやく理解できました。難しいことを簡単に説明できるスキル!は。

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

[8737]とびとびに存在するデータを拾って加工する

2017-08-17 16:13:02 浦山大さんからの投稿です。

[1]は何とか○*3-2と○*3-1って思いつきました。
[2]は○*4-2は出来たのですが、そのあとが思いつかず…
模範解答を見たら「あら~…」でした。

規則性が捉えられなかったので悔しいです。
とりあえず、今日の朝11時頃から始めて、15時頃までかけて、
問1~7まで一通り模範解答通りのマクロが書けました。

繰り返しているとハナコのステップが体に落ちてくる感じがします。
何回も何回も繰り返して淀みなく作業出来るまで持っていきます。
途中経過でした。

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

[8736]ElseIfを使った条件分岐

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

小川先生、質問です。
select caseのコードを作成しておりました。

Sub renshu()
   Dim gyo3
   For gyo3 = 2 To 11
        Select Case Range("D" & gyo3).Value
            Case Is >= 80
                Range("E" & gyo3).Value = "A判定です"
            Case Is >= 60
                Range("E" & gyo3).Value = "B判定です"
            Case Is >= 40
                Range("E" & gyo3).Value = "C判定です"
            Case Else
                Range("E" & gyo3).Value = "D判定です"
        End Select
   Next
End Sub


↑これは自分で何も見ないで作成できるようになりました。
動作も確認済みです。タブの位置も気にしながら作成しています。

以下、変数に纏めてすっきりさせられないかな、
と思って作成してみました。
しかし、値がExcelに入りませんでした。
F8を押すとエラーもなく最後まで動作はしているようです。

Sub renshu_error1()
   Dim hani
   Dim gyo2
   For gyo2 = 2 To 11
   hani = Range("E" & gyo2).Value
        Select Case Range("D" & gyo2).Value
            Case Is >= 80
                hani = "A判定です"
            Case Is >= 60
                hani = "B判定です"
            Case Is >= 40
                hani = "C判定です"
            Case Else
                hani = "D判定です"
        End Select
   Next
End Sub


変数にしないで実行をすれば通常通りに進みます。
Excelのバージョンは2007です。

質問ばかりで恐縮ですが、
以下のように書くと怒られました。
これは、変数gyo2の中身を指定してあげる前に、
gyo2を使用しようとしているから、
という感覚でいればよいでしょうか?

Sub renshu_error2()
   Dim hani
   Dim gyo2                                 'Range’メソッドは失敗しました’_Gloval’オブジェクト
   hani = Range("E" & gyo2).Value   'gyo2を指定する前にgyo2が出てるから?
   For gyo2 = 2 To 11
        Select Case Range("D" & gyo2).Value
            Case Is >= 80
                hani = "A判定です"
            Case Is >= 60
                hani = "B判定です"
            Case Is >= 40
                hani = "C判定です"
            Case Else
                hani = "D判定です"
        End Select
   Next
End Sub


いずれにせよ、
真似ができるようになったら先へ、先へ進めています。
大切なところは理解できるようになってきましたし、
先生の真似をしながら記載も出来るようになってきました。
感謝しています。

[ 続きを読む ]  返信件数: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件  [ 動画を見る] 

[8719]基礎講座第3章7 - 住所情報を分割する(方針を考える)

2017-08-15 10:11:35 浦山大さんからの投稿です。

小川先生

自分なりに「自分自身で添削」を行いました。
小川先生の仰っておられる意図と違っていたらすみません。

> プログラム表記はこれで上手にいくかな?テスト兼ねて投稿です。

問題なく投稿出来ておりました。
OKです。

>演習に入る前に自分で何も見ないでコードを作成してみました(F列、G列)。
> ここまでの練習で、ForNext構文のイメージが湧きやすかったので、
> ForNext構文にて記載しました。

この問いかけを書いたタイミングの理解度だと、
「instr関数やleft関数、mid関数で条件を作る」
→「For Next構文」という箱に入れて回転させる
というイメージ曖昧で分離して実感できていないですね。

フォローアップに取り組みながら、
「小さいものを作る」「箱の中に入れる」「加工する」
というハナコのステップを練習することで、
自然と上記部分の分離がなされてきたように感じます。

仮に、For Next構文なしでこの関数を記載するとしたら、
行数が非常に多いマクロが完成したはずです…。

> これじゃないパターンで作るとどう作れるのかな?
> と楽しみにしながら動画を拝見していきたいと思います。

フォローアップの練習+
皆さんの書かれているコード等を参照させて頂きながら、
多様な考え方にあたり、体験していくのが一番早いと感じました。
まだまだ練習不足です。
一歩一歩進めていきたいと思います。

以下、コードも記載してみましたが、
こちらはあまり改善らしい改善をしておりません。
引き出しが少ないように感じております。
もっと作業回数を増やして気づきを増やします。

添削を通じて、
書くことで「過去の思考過程の整理ができた」「これを書けるということは短期間で過去の自分よりも知識が身についている証明である」という感想を持ちました。

Sub ku_izen()          '修正1:test→kuizenに改名(使用用途を明確に)
    Dim gyo
    For gyo = 2 To 51
        Dim juusho                              '変数juushoは…
        juusho = Range("C" & gyo)   'C列(gyo(2~51行目))の値を取る
            Range("F" & gyo).Value = Left(juusho, InStr(juusho, "区"))
    Next
End Sub

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

[8718]補講:複数ファイル間でのデータ転記

2017-08-15 09:35:48 浦山大さんからの投稿です。

小川先生
コメントありがとうございました。

>浦山さんの場合は、フォローアップをやってみて、行き詰まったら、それから>講座本編の資料を見直したり、動画を見直したり、というのでも良いかと思
>います。

こちらのコメントを拝見し、フォローアップから取り組むことにしました。
必要に応じて基礎編の動画と行き来する形で進めていく方針に致します。

>フォローアップ演習の動画は、
>通勤時間の電車の中等でも見られるかもしれません。

帰宅時は拝見するようにしていますよ(*^^)v
良い復習になっています!

>あと、実務もマクロをガンガン活用してください。

フォローアップ7まで動画を拝見しました。
次、手を動かします。

職場はRの状態で書かれたExcelの相談記録100シートがあり、
強引にワークシート関数(Index)を使用してDの形に纏め、
報告書や分析ピボットを形成しやすいようにしています(カウンセリングの記録なので所謂、Excel方眼紙状態の非常に取りこみにくいRです)。

□シート名の変更が頻繁にあるのを処理として何とかしたい(現状、練習不足なので構想はあるもののぼんやりしている為、今は練習に集中)

□入力ミス、漏れが発生しやすいので(職場が殆ど60代以上のPC不得手な方で構成されている関係上)、フォーム等で入力ミス削減、入力データの統一を図りたい(現状は入力規則で縛っていますが、これをフォームにしてみたい)
などなど、少しずつでも形にしていきます。

データ自体は100~150個位が月間に発生するだけなんですが、
マクロに置きかえられるところを置き換えていけば、
私の仕事時間は限りなく0に近付けられるはずです。

仕事は個室でゆっくりできるので、
浮いた時間は更にスキルアップしてもっと大規模なデータや、
複雑なデータを扱えるようにして、年収アップも狙っていきたいと思います。
その為にもまずは現状で負荷を限りなく0にするところから始めたいと思います。

続きもがんばります!

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

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

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

はじめてマクロを勉強する私にとっては非常に期待がもてる内容でした。

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

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

2017-08-14 22:18:40 受講生さんからの投稿です。

事務職に従事している者です。
日々の雑事をどうにか生産性をあげることで短時間に処理したいな、ということで頭がいっぱいの中、当プログラムに出会いました。

早い安い上手い、のお話や収入、キャリアアップの魅力的なお話満載で、外注に頼らずまずは自分でやってみようという気持ちにさせていただきました。頑張ります。

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

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

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

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

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

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

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

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

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

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

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

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

[8712]文字列の一部を取り出す(応用例)

2017-08-14 13:31:09 受講生さんからの投稿です。

【動画9】 文字列を加工してデータ転記する(その2)をヒントに
D列の文字列を3分割にする方法でマクロを書いてみました。
知識の再利用と文字列の切り出しが面白くなってきました。

Sub mondai()
    Dim mae
    Dim ato
    Dim kouzou
    Dim kouzoumae
    Dim kouzouato
    Dim gyou
    For gyou = 2 To 51
        kouzou = Range("D" & gyou).Value
        mae = InStr(kouzou, "/")
        kouzoumae = Left(kouzou, mae - 1)
        If kouzoumae = "RC" Then
            Range("F" & gyou).Value = "鉄筋コンクリート"
        Else
            Range("F" & gyou).Value = "鉄骨鉄筋コンクリート"
        End If
        kouzouato = Mid(kouzou, mae + 1)
        ato = InStr(kouzouato, "/")
        Range("G" & gyou).Value = Left(kouzouato, ato - 1)
        Range("H" & gyou).Value = Mid(kouzouato, ato + 1)
        Range("I" & gyou).Value = Range("F" & gyou).Value & Range("H" & gyou).Value & "建ての" & Range("G" & gyou).Value & "階部分"
    Next gyou
End Sub

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

[8701]エクセルマクロ研修の選び方6-講座紹介

2017-08-13 21:47:27 ゲストさんからの投稿です。

大変内容のある講座、ありがとうございました。ほとんど休みなく動画1~27を拝見しましたが、要点をおさえた明かりやすい内容で、実に楽しめました。基礎編以降を受講したいと存じます。

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

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

2017-08-13 20:12:02 ゲストさんからの投稿です。

エクセルマクロが実際に動いているのを初めて見たので衝撃を受けています。
すごくモチベーションが上がりました。

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

[8698]補講:複数ファイル間でのデータ転記

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

急ぎではありましたがお休み中に一通り全て動画を拝見させていただきました。
職場では動画が見られませんが、ファイル自体の操作は行えますので、
動画を見ながら触ったコードを何度も何度もやり直して体に染み込ませたいと思います。

そのうえで、フォローアップに挑みます!

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

[8697]基礎講座第3章7 - 住所情報を分割する(方針を考える)

2017-08-13 13:05:15 浦山大さんからの投稿です。

プログラム表記はこれで上手にいくかな?テスト兼ねて投稿です。

演習に入る前に自分で何も見ないでコードを作成してみました(F列、G列)。
ここまでの練習で、ForNext構文のイメージが湧きやすかったので、
ForNext構文にて記載しました。

これじゃないパターンで作るとどう作れるのかな?
と楽しみにしながら動画を拝見していきたいと思います。

他コメントで出てきているみなさんが記載したコードも、
自作したあとで拝見させて頂くと「こういう方法もあるのか!」
ととっても勉強になります。

Excelファイルでテストしたところ、
以下2つのコードが思うように動作したことを確認済みです。

Sub test()
    Dim gyo
    For gyo = 2 To 51
    Dim juusho
    juusho = Range("C" & gyo)
        Range("F" & gyo).Value = Left(juusho, InStr(juusho, "区"))
    Next
End Sub


↑gyoとjuushoを変数にしました。

Sub choumeiika()
    Dim gyo
    For gyo = 2 To 51
        Range("G" & gyo).Value = Mid(Range("c" & gyo).Value, InStr(Range("c" & gyo), "区") + 1)
    Next
End Sub


↑gyoだけ変数にして、juushoは使いませんでした。
何回も書き直しがあったので纏められた方がいいなと感じました。

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

[8696]基礎講座第2章10 - ドリル3

2017-08-13 06:30:21 受講生さんからの投稿です。

何度もご指摘有り難うございます。
改めて。

セル1+1を書くとコンピュータは
セル11に対して与えられた値を返す。
1+1は2に思いがちだがそれは違うので注意が必要。

あっていますか?

>受講生 さん:

正しい記述に改めたものを再投稿してください。
こういうところを詰めないと、あとあとに響きます。

> 再度見直しました。
> 気をつけていきます!

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

[8691]基礎講座第3章1 - マクロを書く人のためのキーボード操作

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

主語が抜けてました。
「イヤでも思考が整理されて文章作成が早くなるワークショップ」
ですね。

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

[8690]基礎講座第3章1 - マクロを書く人のためのキーボード操作

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

「shift_shita」や「sashikae」のワークのおかげで、この動画で仰られていることはとっても理解できています(*^^*)
以前とはメモリの負荷が全く違う感覚です!
「考える」「作業する」に集中できてますよ♪

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

[8689]各資料ごとに1番からの番号を割り振る。AutoFill機能より便利なマクロ

2017-08-12 19:35:42 受講生さんからの投稿です。

ForNext構文ですぐに変数(番号)を記入し、変数を可変しながら番号をふるマクロを考えてみました。動画のようにテストを実施しながら作成しました。
動画の見本と異なるのは、1つ下の行と比べて同じか違うかによってわりふる数字を変える点です。

'問題[1]
Sub warifuribangou()
    Dim id
    Dim gyo
    id = 1
    For gyo = 4 To 19
        Range("B" & gyo).Value = id
        If Range("C" & gyo).Value <> Range("C" & gyo + 1).Value Then
            id = id + 1
        End If
    Next gyo
End Sub

'問題[2]
Sub nantoka()
    Dim id
    Dim gt
    Dim gyo
    id = 1
    gt = 1
    For gyo = 4 To 19
        Range("B" & gyo).Value = id
        Range("C" & gyo).Value = gt
        gt = gt + 1
        If Range("D" & gyo).Value <> Range("D" & gyo + 1).Value Then
            id = id + 1
            gt = 1
        End If
    Next gyo
End Sub

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

[8686]基礎講座第2章11 - ドリル4

2017-08-12 19:09:29 浦山大さんからの投稿です。

8番で躓きました^^;
「:」を「&」等の結合演算子と誤認識し(勝手にルールを作ってますね)、
””の間に挟まなくても認識するはずなのになんで~!?
と考え込んでいました。

動画拝見させて頂いてRange(”C8:E8”)のように文字列として捉えた場合に認識してくださるというように認識できたら以降の問題もさらさら解けました。ありがとうございました!

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

[8685]基礎講座第1章12 - ドリル

2017-08-12 17:52:25 浦山大さんからの投稿です。

初日ですが、ここまではこれました。
まだ続けられる時間があるので次へ行きます!
ForNext構文もチャレンジしてみました。
ショートカットと同じで、
「慣れるまで」「覚えるまで」「呪文唱えながら」「つぶやきながら」
やってます(*^^*)
ハマりすぎないように次へ行きます♪

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

[8675]基礎講座第1章2 - オブジェクトの指定

2017-08-12 11:58:28 浦山大さんからの投稿です。

改めて見ると魔法に見えますね(笑)
数行でExcelブック起動
シートに値の入力
フォルダに保存
こういう作業は実務でも使えそうです。
楽しく拝見させていただきながら次に進みます。

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

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

2017-08-12 11:38:07 浦山大さんからの投稿です。

休みが2日あるので、
出来るところまででも動画を聞き直したいと思っています!
文章作成ワークショップ、操作早くなるワークショップも継続してます!
世界が変わってきました(*^^*)

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

[8673]基礎講座第2章12 - ドリル5

2017-08-12 07:41:46 受講生さんからの投稿です。

間違いを見つけて直すって
大事だなー。

構文を理解していないと見つけられない

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

[8672]基礎講座第2章11 - ドリル4

2017-08-12 07:33:03 受講生さんからの投稿です。

" があるとこから
" があるところまでが 文字列になるので注意が必要。

このドリルは繰り返ししよう!

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

[8671]基礎講座第2章10 - ドリル3

2017-08-12 07:20:22 受講生さんからの投稿です。

再度見直しました。
気をつけていきます!

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

[8670]エクセルマクロ・VBAを利用するための推奨設定 - VisualBasicEditorの初期設定

2017-08-12 03:07:03 受講生さんからの投稿です。

自動構文チェックを外し、変数の宣言を強制するという設定を行うのはなぜか気になりました。

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

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

2017-08-11 17:27:00 ゲストさんからの投稿です。

とてもよくわかりました。
これからの学習が楽しみです。

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

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

2017-08-11 17:21:45 受講生さんからの投稿です。

全体を把握するという意味では分かりやすかったです。またプログラムの構文についても理解しやすく説明されていたのは交換もてました。

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

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

2017-08-11 12:31:17 受講生さんからの投稿です。

ネットで落ちていたマクロを使って、仕事で一日がかりで取り組んでいた仕事をものの1分そこらでできてしまったことがあり、この度、マクロの勉強を始めました。最初の動画、わかりやすかったです。これからの学習が楽しみです。

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


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

 

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

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

トップへ