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

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

[6426]データ記入用ファイルを配布する-その2

2016-04-13 22:06:16 ゲストさんからの投稿です。

小川先生へ。

はじめて質問致します。
基礎編、発展編1を受講中です。さて、本編のようなケースでは、配布前に、元データと配布するデータとの間に、モレがないかのを検証する必要があると思います。
どのように検証する方法が効率がよいのでしょうか。ご教授いただけますでしょうか。
何卒よろしくお願い致します。

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

[6425]条件に一致するデータだけのリストを、条件に一致しないデータを削除する方法で作成する。

2016-04-13 17:55:52 宮下 郁子さんからの投稿です。

業務で実際に行を削除してほしいデータを残していったことがあったのですが、step-1のやり方しか考え付かず、for gyo = 10 to 35で、加工する箇所で、45-gyoという発想はまったくなかったので目からウロコでした!こちらのフォローアップ講座ではいろんなやり方を学べてとても勉強になります。

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

[6384]VLookUp関数、Index関数、Match関数より便利なマクロ-該当する行が見つからない場合の処理をアレンジ

2016-04-11 18:02:15 受講生さんからの投稿です。

小川先生へ

フラグの概念、なるほど!と思いました。

動画を見て、真似て書いてみたのですが
転記先にキャンペーンタイプの一覧がそのまま転記されてしまいました。
原因はTrueの綴りを間違っていたためでした(;・∀・)

Trueの綴りが違ったらFalseとして扱われてしまうとわかって驚きでした。

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

[6368]住所情報を都道府県から市区町村レベルで細かく分割する

2016-04-09 19:33:59 受講生さんからの投稿です。

最初は4番目が「県」かどうかで判定していましたが、それでは「都道府県」が存在しない場合に対応できないことに気づきました。
前半に一瞬表示される「市区郡町村」にもSelect Caseを使う方法は、大変参考になりました。なのに、発展編1フォローで解説されていないのが不思議に思いました。

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

[6337]VLookUp関数、Index関数、Match関数より便利なマクロ-該当する行が見つからない場合の処理をアレンジ

2016-04-05 17:50:10 宮下 郁子さんからの投稿です。

いつもお世話になっております。
動画の資料ファイルはこちらの画面からはダウンロードできないのでしょうか?

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

[6282]セル内の文字列から区切り文字を見つけ、その区切り文字の間にある文字列を切り出す

2016-04-03 17:50:08 受講生さんからの投稿です。

IFの条件が合致したときに、mae=ato ato=n と変数代入するところが難しいですね。
maeとatoを使って中間文字列を抜き出すのは住所操作の練習とパターンが同じですから
理解できるのですが、mae=ato が分からない(-ω-;)ウーン 
今までのパターンで、mae=n となるなら、問題なくわかるのですが、
同じ法則の変数が2つあると、こうなるパターンなのかな・・・
この1行が分かれば、あとは全部すらすら行きそうです。

現状では消化が厳しいので、
後日もっと別のやり方を学習し、やさしく解けるようになりたいと思います。
gooska

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

[6248]保険料額表から標準報酬額ごとの保険料負担額を算出する

2016-04-01 09:04:35 多和田 真也さんからの投稿です。

質問させてください。

問題[1]とおなじことを、exit for を使わずに、andを使って以下のように書いても実現できました。

Sub futankin1()
    Dim gyo
    For gyo = 4 To 37
        If Range("B" & gyo).Value > Range("E4").Value And Range("E4").Value > Range("A" & gyo).Value Then
            Range("F4").Value = Range("C" & gyo).Value
            
        End If
    Next
End Sub


しかし、if文で、
If Range(“B” & gyo).Value > Range(“E4”).Value > Range(“A” & gyo).Value Then

と書くと動かないようです。

なぜなのか、いまいち腑に落ちないのですが、なぜなのでしょうか?

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

[6224]セル内の文字列から区切り文字を見つけ、その出現回数+1回だけデータ転記する

2016-03-31 13:43:58 受講生さんからの投稿です。

最初、[1][2]で求めた回数をそのまま使って一つのマクロで書こうと思ったのですが
すぐに行き詰りました。少し動画を見ると先生も別々のマクロで作っておられたので、その方式で再挑戦。
(最終的には先生もダイレクトなマクロにされていましたが、いきなりはハードル高いですよね;)

最初、A列の連続文字が1から6までで止まってしまいました。
動画で確認すると、変数-1の発想もできていたし、見た目ほとんど同じ内容でした。
(゜-゜)なぜだろう?
いろいろ調べてみて、変数の使い方が間違っていたと判明しました。
転記シートの記述位置を示す変数と、元シートの行位置を示す変数を混同していたのです。

やはり転記作業は、変数を正しく使い分けられるかどうかがポイントですね・・・
形ができても、正しく変数を使えなければ、期待した結果が得られません。
ちょっと複雑な動きをすると、すぐに変数を混同してしまうので、
この辺はやはり、慣れなのでしょうか(-ω-;)

しそ巻きカウント辺りを復習してみようと思います。

Sub tenki033008()
    Dim gyo   '元データの行数
    Dim tenki '記入シートでの記述行位置
    Dim kai     '区切り文字の回数
    Dim kaisu
    tenki = 2
    gyo = 2
    For gyo = 2 To 7
        kaisu = Worksheets("sheet1").Range("g" & gyo).Value '区切り回数が記述された場所
        For kai = 0 To kaisu                            '各行の区切り回数だけ繰り返す
            Worksheets("sheet2").Range("A" & tenki).Value = tenki - 1
            Worksheets("sheet2").Range("b" & tenki & ":G" & tenki).Value = Worksheets("sheet1").Range("A" & gyo & ":F" & gyo).Value
            tenki = tenki + 1
        Next
    Next
End Sub

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

[6209]セル内の文字列から区切り文字を見つけ、その出現回数+1回だけデータ転記する

2016-03-30 10:09:57 受講生さんからの投稿です。

最初の[1]のみです。動画を見ずに挑戦しています。
instrで「、」を検索し、更に2つめの「、」3つめの「、」があるかどうかを調べて、
その結果によって回数を導く方法を考えました。
効率の良い方法ではなさそうですが、やってみました。

Sub rensyu033003()     ’「、」が含まれる回数の調査
    Dim gyo
    Dim ten         ’1番目の「、」の文字位置
    Dim ten2          '2番目の「、」の文字位置
    Dim ten3          '3番目の「、」の文字位置
    Dim yakuwari        '調査対象の文字列
    Dim kaisu        '最終的な回答
    For gyo = 2 To 7
        yakuwari = Range("E" & gyo).Value        
         ten = InStr(yakuwari, "、")
         ten2 = InStr(ten + 1, yakuwari, "、")
         ten3 = InStr(ten2 + 1, yakuwari, "、")
        
        If ten = 0 Then
            Range("G" & gyo).Value = 0
        ElseIf ten2 = 0 Then
            Range("G" & gyo).Value = 1            
        ElseIf ten2 > 0 And ten3 = 0 Then
            Range("G" & gyo).Value = 2
         ElseIf ten3 > 0 Then
            Range("G" & gyo).Value = 3
        End If
        kaisu = Range("g" & gyo).Value
    Next
End Sub

by gooska

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

[6206]保険料額表から標準報酬額ごとの保険料負担額を算出する

2016-03-30 01:17:27 受講生さんからの投稿です。

今回の問題は、以下のとおりA列の条件を満たしたら、更にB列の条件も満たすもの
と分岐処理をして、該当行を特定させたコードを書いていました。

しかし、、、目標の結果が得られたら、そこで作業中断し、ループを抜けるという
魔法の言葉があったんですね!
小人ちゃんに不要な作業をさせるまでもないです。
答えが出たら、早退しておうちに帰ってもらえばいいのですね(*^▽^*)
データ件数が大きかったら、この効果がわかることでしょうね。

Sub rensyu033001()
    Dim gyo
    For gyo = 4 To 37
        If Range("A" & gyo).Value <= Range("E4").Value Then
        
            If Range("B" & gyo).Value >= Range("E4").Value Then
                Range("F4").Value = Range("C" & gyo).Value
                
            End If
        End If
    Next
End Sub

by gooska

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

[5951]保険料額表から標準報酬額ごとの保険料負担額を算出する

2016-03-12 22:54:53 受講生さんからの投稿です。

1万件程度のデータベース全体をグラフにする際、細分化された業種コードを圧縮したり売り上げや利益金額を区分化するために使いました。
不等間隔にしたりマイナスまで集計でき、とても助かりました。

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

[5627]セル内の文字列から区切り文字を見つけ、その区切り文字の間にある文字列を反映しつつデータ転記する

2016-01-15 21:31:34 受講生さんからの投稿です。

前回で課題は完成していたのですね。
>>愛知次郎さんは名古屋支店の担当(経理)で1行、担当(総務)で1行、広島支店で1行の3行
と書かれていたため、6人分を「その他勤務場所」の分として1行増やすのかと
思ってました。
Sheet3が完成例なら、無事完成し動作確認できました。

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

[5601]セル内の文字列から区切り文字を見つけ、その出現回数+1回だけデータ転記する

2016-01-13 21:48:37 受講生さんからの投稿です。

「、」の数を数える際に、動画でInStr関数を使用しかけて途中でやめていましたが、「InStr関数で「、」の位置を調べ、見つかったらカウントアップする」を
繰り返す方法でも可能であることが分かりました。実際にコードを書き、動作確認しました。

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

[5596]セル内の文字列から区切り文字を見つけ、その区切り文字の間にある文字列を切り出す

2016-01-12 22:04:24 受講生さんからの投稿です。

ここまでくると、さすがに基礎編の知識のみでは手間がかかりますね。
この発想自体が、私にとっては難しいと思いました。
配列を使用すると、もっと楽に、かつスッキリとコードが書けました。

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

[5595]セル内の文字列から区切り文字を見つけ、その出現回数+1回だけデータ転記する

2016-01-12 22:02:06 受講生さんからの投稿です。

最初は配列を使う方法を思いつきコードを書いてしまいましたが、動画で「方針」を聞いた後動画を止め、コードを書き直してみました。
工夫次第で基礎編の知識だけでもできることが分かったのは、発見でした。

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

[5594]保険料額表から標準報酬額ごとの保険料負担額を算出する

2016-01-12 22:00:44 受講生さんからの投稿です。

今までExit Forは無駄なループを省くために書くものだと思っていましたが、Exit Forの有無により結果が異なる例もあることが分かりました。

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

[5557]保険料額表から標準報酬額ごとの保険料負担額を算出する

2016-01-11 12:20:04 受講生さんからの投稿です。

このような場合は普段はVLOOKUP関数を使用していましたが、関数を使用する場合とマクロを使用する場合との考え方の違いがよく分かりました。

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

[5548]セル内の文字列から区切り文字を見つけ、その区切り文字の間にある文字列を反映しつつデータ転記する

2016-01-10 11:43:07 受講生さんからの投稿です。

小川先生
基礎編を受講終了しました。復習もしたのですが何度やっても回答を見なければできない問題もあります。何度もやりすぎて、意味がわからなくても回答を覚えてしまうのと、飽きてきてしまったので完全に理解していないうちに発展編に進もうか迷っています。今後は、発展編→わからなかったら基礎に戻って再度復習をして前に進んでみようと思います。
やはり、基礎編を完璧に理解してから発展に進んだほうがいいですか?

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

[5511]保険料額表から標準報酬額ごとの保険料負担額を算出する

2016-01-02 23:10:29 受講生さんからの投稿です。

小川先生 いつもわかりやすく教えていただきありがとうございます。
私は営業職に就いており、基本的な関数を使う機会がよくあるのですが、
なかなか関数を覚えることができません。
以下の関数を習得するに当たり、効果的な学習方法、参考文献などございましたら
ご教示ください。また、先生の動画セミナーで関連するものがありましたら、
ご教示ください。

<よく使用する関数名>
SUM / AVERAGE / IF / VLOOKUP / ROUND / SUMIF /
COUNTIF / MAX MIN

以上よろしくお願いいたします。

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

[5498]保険料額表から標準報酬額ごとの保険料負担額を算出する

2015-12-23 23:40:13 受講生さんからの投稿です。

小川先生
いつも楽しく動画を見ています。 外出先でも、動画を見て勉強したいなと思っておりますがお勧めのノートPCなどありますでしょうか?
小川先生愛用のPCがあったら教えてください。

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


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

 

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

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

トップへ