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

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

[11529]表を解析して1行のリストを作る、1行のリストを解析して表にする(その2)

2019-07-27 17:11:23 ほとさんからの投稿です。

フォローアップアドバンスドでつっかかったので、ベーシックが本当にすらすらできるか不安になり、再復習しました。
結果、3度復習したことになりましたが、マクロが思ったような動きにならない場合でも慌てずに修正できるようになり、ベーシックレベルの変数の考え方・使い方は完全に整理できたと思います。最初のころを考えると信じられません。
また3度目の復習ではなんとかベーシックのマクロを2時間程度で組めるようになりました。再度、アドバンスドにチャレンジします。

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

[11258]表を解析して1行のリストを作る、1行のリストを解析して表にする(その2)

2019-03-14 12:54:42 jinoseさんからの投稿です。

[感想]
これは、、、難しい!初期化、変数を増やすタイミング、for next構文の最初と最後の処理、条件分岐等。。。まだ身についていないところの総復習が必要と感じた。

まずはフォローアップ ベーシックを1周できました。わかりやすい講義をありがとうございました!!!

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

[10564]表を解析して1行のリストを作る、1行のリストを解析して表にする(その2)

2018-09-11 12:19:04 受講生さんからの投稿です。

———————–
Sub XXX()
Dim kuiki
Dim gyosha
gyosha = 1
Dim gyo
For gyo = 2 To 27
If Range(“A” & gyo – 1).Value <> Range(“A” & gyo).Value Then
gyosha = gyosha + 1
Range(“E” & gyosha).Value = Range(“A” & gyo).Value
Range(“F” & gyosha).Value = Range(“B” & gyo).Value
kuiki = Range(“C” & gyo).Value & “地区”
Else
kuiki = kuiki & “,” & Range(“C” & gyo).Value & “地区”
End If
If Range(“A” & gyo).Value <> Range(“A” & gyo + 1).Value Then
Range(“G” & gyosha).Value = kuiki
End If
Next
End Sub
————————-
今回の2つ目の問題を↑のように解いてから動画を見ました。
このマクロであれば最初と最後の処理を必要としないので良いような気もするのですが、なんとなく格好が悪い気もします。
最初と最後の処理をするマクロを自分で導くのは正直自分には難しそうと尻込みしてしまいますが、自分で導くためのプロセスを順を追って動画で紹介して下さっているので、とても勉強になりました。何回もこの動画を見直して練習したいと思います。

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

[10253]表を解析して1行のリストを作る、1行のリストを解析して表にする(その2)

2018-07-13 01:53:12 morimotoさんからの投稿です。

やっとやっと基礎フォローアップも前半が終わりました。予定より
時間がかかっちゃいました。別にさぼってたわけでないのですが、歴史の勉強のようにざっと一通りしてみてというのがイヤで時間がかかってもじっくりしたいので予定より大幅に遅れましたが、後半もこだわってこだわってやっていきたいです。変なvbaスクールにいってた時期があり、いまさらですがほんとお金を含め無駄でした。はやくこのサイトを探しだせればよかったんですが。。。
ボヤいても仕方ないのでまたつづきがんばります。

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

[10252]表を解析して1行のリストを作る、1行のリストを解析して表にする(その2)

2018-07-13 01:42:40 morimotoさんからの投稿です。

何とか自分の今までの知識と浅い経験(あまり共通なコードを変数に置き換えが苦手)でたどり着きました。(tiku=,,,と置き換えするのがつい「なぜ置き換えたんだろう???そのまま長がったらしくコードかけば行けるはずだ??!!と深みに落ちてしまって)。ともあれ自分が次回似たようなケースでコードを作り上げれたらいいなってところです。何度も紙に書きました。f8で動きも見ました。道中過程ほんとにイヤになるものですが、解消したらまずはホッとするもんですね。

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

[10245]表を解析して1行のリストを作る、1行のリストを解析して表にする(その2)

2018-07-11 00:09:18 morimotoさんからの投稿です。

2日考えましたが解決に至りませんでした。できそうでできないという感じでした。tiku=”” やif migi>2 と例外が生じたとき例外処理をするという考えは大切にしたいと思います。実務ではおそらく教科書的なきれいに収まるコードになることはむしろ少ないかもしれませんので、おかしなときは例外処理と頭の隅に置きながた、他のコメント等みさせてもらい、もう一回コード書こうと思います。でも、、、使っている知識は高級なものでなく基礎編の範囲ですからね。ここは地道なランニングと思いがんばります。

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

[10054]表を解析して1行のリストを作る、1行のリストを解析して表にする(その2)

2018-05-28 01:11:24 マメコトさんからの投稿です。

今回の問題はこのように書いてから動画を見ました。

Sub mondai2()
    Dim hida
    Dim migi
    Dim Kuiki
    migi = 2
    
    For hida = 2 To 27
        If Range("A" & hida).Value <> Range("A" & hida - 1) Then
            Range("E" & migi).Value = Range("A" & hida).Value
            Range("F" & migi).Value = Range("B" & hida).Value
            Kuiki = Range("C" & hida).Value & "地区"
            Range("G" & migi).Value = Kuiki
            migi = migi + 1
        Else
            Kuiki = Kuiki & "," & Range("C" & hida) & "地区"
            Range("G" & migi - 1).Value = Kuiki
        End If
    Next

End Sub

重複した業者名が続くと『区域』を毎回書き直すのがカッコワルイと感じてはいますが、最初と最後の特殊な制御は不要になるので、メンテナンスはしやすく、これはこれでアリなのではと思っています。
一方、処理が重くなったり遅くなったりするというデメリットもあるかも知れないのですが・・・どうでしょうか。

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

[9115]表を解析して1行のリストを作る、1行のリストを解析して表にする(その2)

2017-11-10 00:08:55 受講生さんからの投稿です。

一通りフォローアップを学んでみたあと、また動画1の課題から解説を見ないで取り組んでいます。

今回は「担当区域」を先に考えてやりました。以前に動画を見たときに、確か、migi=2 とか使ってたな、と思って進めていくと、途中で、自分の書き方だとmigi=1でないとうまくいかないと思ったり、あとから「業者名」「フリガナ」を入れたので、『”e” & migi』には1を足さないとダメだな、など、動かしながらやってると、特に意図もなく、1を足してみたり引いてみたりして、結果的に答えにはたどりついています。

例えば、E~G列は、2行目から始まるので、migi=2とするのが通常かなと思います。しかし、意図せず1を足したり引いたりして結果に結び付けばよいのでしょうか?自分が書いたあと、もう一度動画を見ると、自分のはなんだか不格好だなと思います。

初心者のうちは、このような形でもよいのでしょうか?

Sub ren()
Dim hida
Dim tiku
Dim migi
migi = 1
For hida = 2 To 27

If Range("a" & hida).Value <> Range("a" & hida - 1).Value Then
    Range("e" & migi + 1) = Range("a" & hida).Value
    Range("f" & migi + 1) = Range("b" & hida).Value
     tiku = Range("c" & hida) & "地区"
     migi = migi + 1
Else
   tiku = tiku & "," & Range("c" & hida).Value & "地区"
End If
Range("g" & migi).Value = tiku

Next

End Sub

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

[9044]表を解析して1行のリストを作る、1行のリストを解析して表にする(その2)

2017-10-11 22:02:55 受講生さんからの投稿です。

これまでの複合技!
・for next 構文で気をつけることは、データのはじめと終わりに
 自分の求める処理がされているか。
・失敗しながら何度もやってみる。
 成功者ほどたくさん失敗している!byドラッカー

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

[8505]表を解析して1行のリストを作る、1行のリストを解析して表にする(その2)

2017-07-03 22:16:38 受講生さんからの投稿です。

小川先生

添削と返信ありがとうございました。
(コメント:8489)
インデントも気をつけたいと思います。

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

[8470]表を解析して1行のリストを作る、1行のリストを解析して表にする(その2)

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

初期化(tiku = “”)のタイミングですが少し早い部分に書いてみました。
問題ありませんでしょうか。
発展編で出てくるDebug.Printでtikuの中身の様子も確認済です。

 
Sub Createlist01()
    Dim hida
    Dim migi
    Dim tiku
    migi = 2
    For hida = 2 To 27
        If Range("A" & hida - 1).Value <> Range("A" & hida).Value Then
            Range("E" & migi).Value = Range("A" & hida).Value
            Range("F" & migi).Value = Range("B" & hida).Value
            If migi > 2 Then
                Range("G" & migi - 1).Value = Mid(tiku, 2)
                
                Debug.Print tiku
                tiku = "" '[※]
                Debug.Print tiku
            
            End If
            migi = migi + 1
        End If
    tiku = tiku & "," & Range("C" & hida).Value & "地区"
    Next
    Range("G" & migi - 1).Value = Mid(tiku, 2)
End Sub

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

[8415]表を解析して1行のリストを作る、1行のリストを解析して表にする(その2)

2017-06-23 18:30:20 受講生さんからの投稿です。

お世話になります。
現在、エクセルマクロ・VBA基礎編フォローアップ を学習していますが、6月末でキャンペーン終了ということなので、不安すぎて、まだ基礎編フォローアップに苦戦しながらも、先走り発展編1を購入しましたが、いつになれば取り掛かれるのかわかりません。
でも、少しずつでは、ありますが毎日学習を進めていっています。
現在、基礎編フォローアップ動画18の問題2で戸惑っています。
問題1は理解できたのですが、IF文の中のtiku=””の意味が、まったく理解できずに、マクロを書くことができません。
何度も間違っても、うまくいきません。

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

[6689]表を解析して1行のリストを作る、1行のリストを解析して表にする(その2)

2016-06-01 17:11:08 ゲストさんからの投稿です。

動画その18の音声が小さくて聞き取れなのですが、大きくならないのでしょうか?

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

[6205]表を解析して1行のリストを作る、1行のリストを解析して表にする(その2)

2016-03-29 23:37:29 受講生さんからの投稿です。

動画をみて感じたのは
まさに今回私が作ったプロセスそのものだったので、こうやって試行錯誤していけば
いいんだな、ということです。
私もまず何かが目標セルに入るところから始まり、少しずつ修正していきました。
午前中あげたものも、どうしてこれならうまくいくのかよくわからないけど
結果をみるとうまくいった!みたいな感じでした。
(つまり、いろいろ分かっておりません(笑))
要求度の高い問題なので、繰り返し挑戦して、覚えていきたいと思いました。

午前中UPしたコードには無駄な行がありましたので、修正を加え、私の完成形は
以下のようになりました。
先生のと少し違うのですが、結果はうまくいっているのでいいのかな(*´∀`*)

A列が重複データでないときは、左のリストは1行下に記述され、
重複データのときは、左のリストは変数kuikiに追加格納されていく
という方法です。

Sub rensyu032904()
                    '第18問の[2]解答 K列含む
    Dim gyo         '元データ行位置
    Dim gyosya      '作成リストの行位置
    gyosya = 1
    Dim kuiki          '区域を格納する変数
    For gyo = 2 To 27
       
        If Range("A" & gyo - 1).Value = Range("A" & gyo).Value Then
            kuiki = kuiki & "," & Range("C" & gyo).Value & "地区"
            Range("G" & gyosya).Value = kuiki
           
        ElseIf Range("A" & gyo - 1).Value <> Range("A" & gyo).Value Then
            gyosya = gyosya + 1
            Range("E" & gyosya).Value = Range("A" & gyo).Value
            Range("F" & gyosya).Value = Range("B" & gyo).Value
            kuiki = Range("C" & gyo).Value & "地区"
            Range("G" & gyosya).Value = kuiki
        End If
    Next  
End Sub

by gooska

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

[6009]表を解析して1行のリストを作る、1行のリストを解析して表にする(その2)

2016-03-21 08:23:08 多和田 真也さんからの投稿です。

小川先生の書いたプログラムをちら見しながら、なんとか、正しい結果が出るプログラムになりました。
しかし、なぜ出来ているのか、説明もできないです。イマイチ理解度が低いような気がします。
[2]に関しては、こんな感じです。若干小川先生の書いたものと違う(if文が一つだけ)のですが、これでいいのでしょうか?

Sub test2()

Dim migi
Dim hida
Dim ku
migi = 1
For hida = 2 To 27
If Range(“A” & hida – 1).Value < Range(“A” & hida).Value Then
migi = migi + 1
Range(“E” & migi) = Range(“A” & hida).Value
Range(“F” & migi) = Range(“B” & hida).Value
ku = “”
End If
ku = ku & “,” & Range(“C” & hida).Value & “地区”
Range(“G” & migi).Value = Mid(ku, 2)
Next
End Sub

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

[5709]表を解析して1行のリストを作る、1行のリストを解析して表にする(その2)

2016-02-06 11:14:20 受講生さんからの投稿です。

「業者名・フリガナ」と「担当区域」がずれないようにするために、3つ全てを「初回でなかったら」と処理してしまい、ループを抜けた後に3つを書き出すのもありかなと思いました。
コードを書き、動作確認もできました。
タイトルにある「1行のリストを解析して表にする」もやってみました。こちらの方が、断然楽でした(「地区」を消す際に、Replace関数を使用しました)。

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

[5296]表を解析して1行のリストを作る、1行のリストを解析して表にする(その2)

2015-11-18 05:24:20 関口昭博さんからの投稿です。

小川先生
お世話になっております。
閲覧期間残り一月のところで、基礎編およびフォローアップ編を、閲覧、勉強しおえました。(使えるようになったかは別として)
覚えたマクロで、自分の業務でも使い始めました。ただ、マクロを完成させるのに時間がかかって、今の時点では、これまでちまちまやっていた時間と
さほど変わらない状況です。そのため、マクロを考えるのは、自宅でやっています。ただ完成したマクロを何度も実行してニヤニヤしています。
そんな状況ですが、現在、壁にぶち当たっている問題があります。
それは、野菜の品種名と出荷日のリストがあって、それを、縦に品種、横が出荷日の表に、その品種の出荷日ごとの出荷点数をうちだすというもの
ですが、知恵が浮かびません。
野菜は20種類ほどあって元のリストは重複しておりますし、合計300点あります。出荷日は20日間あります。
重複しない野菜のリストは、教えていただいたマクロでできました。また、品種別の出荷点数も、ネットでみつけたマクロでとってくることができました。
しかし、品種別、さらに出荷日別の点数を打ち出すマクロができません。
以前、どなたかの質問で、その内容は発展編で学んでほしいという回答を見ましたので、今回の質問が基礎編を超えるようなら、仕方ありませんが
基礎編レベルで解決できることでしたら、教えてください。
よろしくお願いいたします。

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

[5041]表を解析して1行のリストを作る、1行のリストを解析して表にする(その2)

2015-09-11 23:03:41 鈴木優子さんからの投稿です。

G列に書きだすのは、hidaを調べていくときだなと思って、if文の中にいれませんでした。
書き出すタイミングが動画と違ったので、For Next構文の始まった直後と終わった後に特別な仕掛けをつくる仕組みがなくてもテストしてたら思い通りに動いていました。
今回はうまくいったけれど、初回処理と最後の処理を気をつけるというのは よく出てきそうなので、しっかり覚えようと思います!

Sub seikei()
    Dim hida
    Dim migi
    Dim tiku
    migi = 2
    For hida = 2 To 27
        If Range("A" & hida).Value <> Range("A" & hida - 1).Value Then
            Range("E" & migi).Value = Range("A" & hida).Value
            Range("F" & migi).Value = Range("B" & hida).Value
            migi = migi + 1
            tiku = ""
        End If
        tiku = tiku & "," & Range("C" & hida).Value & "地区"
        Range("G" & migi - 1).Value = Mid(tiku, 2)
    Next
End Sub

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

[4604]表を解析して1行のリストを作る、1行のリストを解析して表にする(その2)

2015-06-29 01:03:51 森 則彦さんからの投稿です。

初めてコメントする森と申します。
フォローアップセミナーのNO.018の最終問題_ 2は5時間ぐらいあれこれと悩みました。
基礎編についてはほぼ理解できたと思います。
次のステップの順序としては、どの講座を受けるのが理想でしょうか?

G列に書き出すタイミングが上手く表現できず悩みました。
以下が出来上がったプログラムソースです。



code
Sub list2()
Dim memo, migi, gyo
migi = 2
For gyo = 2 To 27
If Range(“a” & gyo).Value <> Range(“a” & gyo – 1).Value Then
Range(“e” & migi).Value = Range(“a” & gyo).Value
Range(“f” & migi).Value = Range(“b” & gyo).Value
Range(“g” & migi – 1).Value = memo & “地区”
memo = Range(“c” & gyo).Value
migi = migi + 1
Else
memo = memo & “地区” & “、” & Range(“c” & gyo).Value
End If
Next
Range(“g” & migi – 1).Value = memo & “地区”
End Sub
/code

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

[4386]表を解析して1行のリストを作る、1行のリストを解析して表にする(その2)

2015-05-29 22:17:31 門田 源一さんからの投稿です。

基礎編フォローアップ動画講座、全18回、本日をもって学習を終了することができました。マクロ言語の学習は全く初めての経験でしたので全てが新鮮で大変楽しく学習することができました。学習者に寄り添い、かつ実践的な講座をご提供いただき大変ありがとうございました。基礎編だけでもかなりのことができると伺いましたので、今後はまず仕事上の懸案事項への活用をトライしてみるつもりです。将来、おそらく発展コースでの学習の必要性が出てくるものと思われますが、基礎編で学んだ成果を試して見たいと考えております。これまでのご指導に感謝いたします。ありがとうございました。

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

[4011]表を解析して1行のリストを作る、1行のリストを解析して表にする(その2)

2015-03-26 23:16:35 佐々木久さんからの投稿です。

コードを書いてみました。
一応上手く処理されましたが、
どこかおかしいところや注意すべき箇所はありますでしょうか?

 
Sub test()
    Dim cGyo As Long
    Dim cHida As Long
    Dim cMigi As Long
    Dim sTiku As String
    
    cHida = 2
    cMigi = 2

    For cGyo = 2 To 27
        If Range("A" & cGyo).Value <> Range("A" & cGyo + 1).Value Then
            Range("E" & cHida) = Range("A" & cGyo).Value
            Range("F" & cHida) = Range("B" & cGyo).Value
            Range("G" & cMigi) = Mid(sTiku & "," & Range("C" & cGyo).Value & "地区", 2)
            cHida = cHida + 1
            cMigi = cMigi + 1
            sTiku = ""
        Else
            sTiku = sTiku & "," & Range("C" & cGyo).Value & "地区"
        End If
    Next
End Sub
 

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

[3858]表を解析して1行のリストを作る、1行のリストを解析して表にする(その2)

2015-02-17 07:40:17 佐藤 あゆむさんからの投稿です。

9回目から復習をしてきて18回目まで戻ってきました。
それでも書くのに悩んだ12回と18回は、また復習しますヽ(*´v`*)ノ
次は「Web連携」をやりつつ毎日一つはマクロを書いていきます^^/
「Web連携」が終わった後は、マクロの苦手な部分も克服できていることに期待。
それから発展編1に移ろうと思います^^

今回書いたコード↓

Sub create_ward()
    'review: 2015/2/16
    Dim i, mke, ward
    mke = 2
    For i = 2 To 27
        If Range("A" & i - 1).Value <> Range("A" & i).Value Then
            Range("E" & mke).Value = Range("A" & i).Value
            Range("F" & mke).Value = Range("B" & i).Value
            ward = Range("C" & i).Value & "地区,"
            mke = mke + 1
        Else
            ward = ward & Range("C" & i).Value & "地区,"
        End If
        Range("G" & mke - 1).Value = Left(ward, Len(ward) - 1)
    Next
End Sub

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

[3812]表を解析して1行のリストを作る、1行のリストを解析して表にする(その2)

2015-02-11 23:59:37 受講生さんからの投稿です。

17回の動画を観た後に、自分でNo.18の[2]をやってみました。

Sub list2()
Dim gyo
Dim migi
Dim kuiki

    migi = 2
    
    For gyo = 2 To 27
    
        If Range("A" & gyo - 1).Value <> Range("A" & gyo).Value Then
            Range("E" & migi).Value = Range("A" & gyo).Value
            Range("F" & migi).Value = Range("B" & gyo).Value
            migi = migi + 1
        End If
        
            If Range("B" & gyo - 1).Value <> Range("B" & gyo).Value Then
                kuiki = Range("C" & gyo).Value & "地区"
            Else
                kuiki = kuiki & "," & Range("C" & gyo).Value & "地区"
            End If
            
            Range("G" & migi - 1).Value = kuiki   'G列が1行ずれてしまったので、migi -1で調整した。
            
        Next
        
End Sub

急遽、migi-1なんてやらかしていますが…(^_^;)
それでも、何とか一通りフォローアップ動画も観終わりました。
もう一度、最後の方の難しかったところを観てから、次の「発展編1」に進もうと思います。
ありがとうございます。

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

[3784]表を解析して1行のリストを作る、1行のリストを解析して表にする(その2)

2015-02-09 08:00:07 佐藤 あゆむさんからの投稿です。

今回は2日間粘って[2]を完成させました。

今から仕事なので帰宅したら小川先生のマクロを検証しつつなぞろうと思います。

Sub createlist2()
    Dim i, j, ward
    Range("E2").Value = Range("A2").Value
    Range("F2").Value = Range("B2").Value
    
    j = 3
    For i = 3 To 26
        If Range("A" & i - 1).Value <> Range("A" & i).Value Then
            Range("E" & j).Value = Range("A" & i).Value
            Range("F" & j).Value = Range("B" & i).Value
            j = j + 1
        End If
    Next
    
'作成日: 2015/02/09。↓2日考えてやっと完成
    j = 2
    Range("G2").Value = Range("C2").Value & "地区"
    For i = 2 To 26
        If Range("A" & i) <> Range("A" & i + 1) Then
            ward = 0
            j = j + 1
            ward = Range("C" & i + 1).Value & "地区,"
            Range("G" & j).Value = ward
        Else
            ward = ward & Range("C" & i + 1) & "地区,"
            Range("G" & j).Value = ward
        End If
    Next
    For i = 3 To 11
        Range("G" & i).Value = Left(Range("G" & i).Value, Len(Range("G" & i).Value) - 1)
    Next
    
End Sub

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

[3680]表を解析して1行のリストを作る、1行のリストを解析して表にする(その2)

2015-01-24 10:23:32 井上 聡さんからの投稿です。

質問 以下のコードの場合は、(A)が2だと最初に” . “ピリオドがつきます。3だと消えます。なぜでしょうか。
Sub risuto()
Dim hidari
Dim migi
Dim tantou
migi = 1
For hidari = 2 To 27
If Range(“A” & hidari – 1).Value <> Range(“A” & hidari).Value Then
migi = migi + 1
tantou = ” “
End If
Range(“E” & migi).Value = Range(“A” & hidari).Value
Range(“F” & migi).Value = Range(“B” & hidari).Value
tantou = tantou & “.” & Range(“C” & hidari).Value & “担当”
Range(“G” & migi).Value = Mid(tantou, 2)(A)
Next
End Sub

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

[2635]表を解析して1行のリストを作る、1行のリストを解析して表にする(その2)

2014-10-04 19:13:14 浜口 智之さんからの投稿です。

途中から、どんどん楽しくなり、気がついたら最後まで一気にたどり着いてしまいました。
ゲームをやっていて時間を忘れてしまうような、あの感じです。
今までの回で、書いていく中で、色々試して失敗しましたが、その失敗の方法が今回使えたりと、たくさん失敗する意義を感じる最終回でした。
今の頭の状態で、もう一度、第一回目から、新たな発見と知識の定着のため、マクロを書いてみようと思います。
発展編でもお世話になると思いますが、よろしくお願いします。
基礎編の分かりやすい動画解説、ありがとうございました。

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

[1955]表を解析して1行のリストを作る、1行のリストを解析して表にする(その2)

2014-08-14 14:21:31 角野崇雄さんからの投稿です。

小川先生

お世話になっております。

今やっとフォロー動画をすべて終了致しました。
最後の方はなかなか考えさせられました。面白かったです。

発展編1に移ろうと思います。
引き続きよろしくお願い致します。

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

[1899]表を解析して1行のリストを作る、1行のリストを解析して表にする(その2)

2014-08-10 20:09:21 明石 照伸さんからの投稿です。

お世話になります。

本日ようやく動画解説を見終わる
ことができました。

解説もありましたように最後の設問の
For~Nextの最初と最後の書き込みに
手間取ったのですが、以下のような
回答を作成していましたが、

これに冠する小川さんの解説は、また
しても(^^;自分では思いつかないような
手順というかアプローチの仕方でしたので
非常に勉強になりました。

最終問題ですので全体を総括させて
いただきますと、

知らないうちに非常に短期間に業務でも
マクロを活用できるようになりましたので
非常に投資効果の高いセミナーだったと
いえるかと思います。

ありがとうございました。


発展編とのギャップがどのくらいあるかは
わかりませんが、何度か復習した後、できるだけ
はやく発展編も受講させていただきたいと
思っております。

(実は、密かに、Excelマクロによる分析を
多用する業務に移ることを目論んでおりますので(^^、)
もっともっと勉強していきたいと思います。

今後ともよろしくお願いいたします。



Sub kakikae()
Dim migi
migi = 2

Dim kuiki
kuiki = 0

Dim hida
For hida = 2 To 27
If Range(“a” & hida).Value <> Range(“a” & hida – 1).Value Then
Range(“e” & migi).Value = Range(“a” & hida).Value
Range(“f” & migi).Value = Range(“b” & hida).Value
kuiki = Range(“c” & hida).Value & “地区”
migi = migi + 1

Else
kuiki = kuiki & “,” & Range(“c” & hida).Value & “地区”

End If

Range(“g” & migi – 1).Value = kuiki

Next


End Sub

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


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

 

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

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

トップへ