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

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

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

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

ずっとマクロに興味がありましたが、やっと着手することができました。
きっかけをありがとうございます!一般の書籍と違い、実務的な内容ばかりなので本当に知りたい内容を学べてとても有難いです。

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

[8770]基礎講座第3章9 - 住所情報を分割する(実習)

2017-08-26 08:11:49 受講生さんからの投稿です。

Dimを使うことでマクロが作りやすくなる。
マクロの書き方は
コピペ→一カ所書き換えたら動きのチェック→OK→次へ進む
                    →No→修正する
少しずつ進む意味が分かった。

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

[8769]基礎講座第3章5 - 手書きドリル1(関数の練習)

2017-08-25 20:38:32 受講生さんからの投稿です。

プログラムを書くときに
どうしたいのかフロー?図を紙にかいて
プログラムをひととおり紙にかいてから
それをみて一気にエディタに入力してます
こっちのほうがわたしとしては頭が整理できていいのですが

みなさん直にパソコンで入力してるんですよね?
どちらでもいいのでしょうか?
ちょっと気になりました

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

[8768]基礎講座第3章8 - 住所情報を分割する(方針の説明)

2017-08-25 18:35:15 受講生さんからの投稿です。

マクロを書くときに必要なもの
・思考 と ・行動
明確なゴール
スモールステップ
書きながら考えすぐ実行!
できるだけコピペ
次からいよいよマクロ書くぞ!

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

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

2017-08-25 18:20:27 受講生さんからの投稿です。

何が必要なのかを考える。
今回は”区”がキーワード
イメージは、
①区を見つけるマクロ
②区の前までを表示するマクロ
③区の後ろから全てを表示するマクロ を作るイメージ。

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

[8766]基礎講座第3章6 - 手書きドリル2(関数の練習)

2017-08-25 18:10:28 受講生さんからの投稿です。

関数の意味を理解するためのドリル
大変だけど、大事!
・ Left
・ Mid
・Right
・Len
・Instr
スペル見なくても書けるようになったぞ!

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

[8765]基礎講座第3章5 - 手書きドリル1(関数の練習)

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

手書きは大事!
分かったつもりになっていることがよく分かる。
・Left関数 は 文字列
・Mid関数 は 文字列
・Right関数 は 文字列
・Len関数 は 数値
・Instr関数 は 数値

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

[8760]基礎講座第3章4 - Len関数、Instr関数

2017-08-23 20:32:14 受講生さんからの投稿です。

・Len関数 は引数の文字数を返す
・InStr関数 は引数の中で指定された引数が左から数えて何文字目にあるかを返す
 指定された引数(文字列)がない場合は0を返す
次はドリルだ!理解を深めるぞ!

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

[8759]基礎講座第3章3 - Left関数、Mid関数、Right関数

2017-08-23 20:16:27 受講生さんからの投稿です。

文字列を使った関数
・Left関数 は 文字列の左から引数分だけ文字を返す
・Mid関数,引数 は 文字列の左から数えた引数分以降の文字を返す
・Mid関数,引数A,引数B は 文字列の左から引数A分数えた文字から
 引数B分文字を返す
・Right関数は,引数 は 文字列の右から引数分だけ文字を返す
・引数と引数の間はカンマ(,)を使う。ピリオド(.)ではない。

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

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

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

久しぶりにコメントを記載します。

動画は18番まで閲覧致しました。
動画は止めながら一緒にマクロを作っています。
発想が貧困?
なので先に教えてもらって動きを掴む方が早いかなと思い、
フォームを教えてもらうつもりで拝見してから作業というステップにしています。

作業は11まで進めました。
動画時点で「そうなんだ」で全然動きが伴っていないので、
毎日1からやれる範囲まで通しで問題を解き続けています。
問題10までなら5回くらいずつ書いたと思います。

書く度に変化を感じています:
※必ず1行なんでもいいので書く→次に考えるが癖になった
※F8でテストしながら書く→1ステップずつ修正しながら拡大の意味が体得できた
※テストしている時に上手く動かないと感じたら何をしたいのかを紙に書いて、
自分が動かしたいことを文や図に起こすようになった(案外、出来ない時って図示や文にしようとしている自分自身があいまいなんですね)

途中経過でした。
9月半ばまでには25番くらいまでは書けるようになりたいと思います。

以下は一時間くらいかかって完成させた回答です。
まだ残り24個も成長する材料があると思うと、
自分がどこまで行ってしまうのか?楽しみです。
仕事で使えそうな問題も出てきました。引き続き宜しくお願いします。

Sub iwai()
    Dim goukei
    Dim soukei
    Dim gyo
    Dim migi
    For gyo = 4 To 9
            goukei = 0
        For migi = 4 To 10
            If Range("B" & gyo).Value = Range("I" & migi).Value Then
                goukei = goukei + Range("j" & migi).Value
            End If
        Next
        soukei = soukei + goukei
        Range("D" & gyo).Value = goukei
        Range("E" & gyo).Value = Range("c" & gyo).Value + goukei
    Next
    Range("D10").Value = soukei
    Range("E10").Value = Range("C10") + soukei
End Sub

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

[8750]基礎講座第3章2 - マクロを書く人のためのショートカットキー操作

2017-08-23 07:50:05 受講生さんからの投稿です。

・Home shift 1↓↓↓ で行をまとめて選択できる。
・Home を押すと 先頭と書き始めを選択することができる。
・プロパティーの選択をしたとき、決定するのはTab!

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

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

2017-08-23 07:37:53 受講生さんからの投稿です。

マクロを書くときは、
Enter
Backspace
Tab
を使って書くのが基本!

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

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

2017-08-22 01:36:03 受講生さんからの投稿です。

仕事で繰り返しの作業が多く、マクロを使えば楽になるだろうなあと漠然と感じていたのですが、難しいのでは?と思い、腰があがりませんでした。
今回、たまたま機会がありまして、軽い気持ちで講座をみてみましたが、
とてもわかりやすい説明で、楽しみになってきました。

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

[8746]エクセルマクロVBA「Web連携」Microsoft XMLとDOMの活用例

2017-08-20 22:39:42 田中 宏明さんからの投稿です。

こんばんは。
ようやくMicrosoft XMLを少し使えるようになりました。
インターネットエクスプローラを起動して制御するほうが簡単ですが、こちらのほうが軽快に動作することが実感できました。
安定して動作するツールを制作できるレベルを目指していきます。

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

[8744]基礎講座第1章8 - 変数を使ったプログラム、変数を使う意義

2017-08-20 13:00:06 横山 知明さんからの投稿です。

変数を使うメリットを、とてもわかりやすく説明していただき、ありがとうございます。変数の他に定数を使うやり方もあると考えますが、どう使い分けるかが
わかりません。定数ですと、Const zeiritsu As Long = 0.05 のような記述になりますが、どちらがベターでしょうか? よろしくお願いします。

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

[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件  [ 動画を見る] 


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

 

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

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

トップへ