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

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

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

2019-05-10 05:52:12 受講生さんからの投稿です。

小川先生、
お世話になっております。カンマの使い方で1つ確認させてください。解説を見る前に自分で解いた時に、カンマを表示する時にコードとしてRange(“F2”).Value = Range(“A2” & “,”).Value としたのですが、実行時エラー1004となり、動きませんでした。
Range(“F2”).Value = Range(“A2”).Value & “,”としたら可動しました。別の会の授業の中でのコロンを使用したRange(“C2” & “:” & “E2”).Value = 8のコードを参考に上記のようなコードとしたのですが、エラーがでました。確認したいのですが、これはどこがエラーの原因なのでしょうか。よろしくお願いいたします。  

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

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

2019-01-29 21:17:41 ゲストさんからの投稿です。

解答のgyosha = gyosha & “,” & Range(“A” & gyo).Valueの意味がいまいちわかりません。最初のgyoshaの変数を定義するのに、gyosya=gyosya…とそれまでにgyosyaが出てこないのに、どういう意味でしょうか。
xを宣言するのにx=x+yだとしたら、x-x=y、0=yのようにならないのでしょうか。どうも頭硬いようです。
ちなみに私は下記でやってみました。あまり格好良くないでしょうか。

Sub kaisya()
Dim gyosh
Dim gyo
gyosh = Range(“a” & 2).Value
For gyo = 2 To 11
gyosh = gyosh & “,” & Range(“a” & gyo).Value
Next
Range(“f2”).Value = gyosh

End Sub

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

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

2018-07-08 23:30:17 morimotoさんからの投稿です。

midで2つ目から表示させる発想はでませんでした。どちらかといえばnantoka_betuの解法が思いつきました。このようなケースは実務で出そうなので上下の比較gyo-1, gyoとmidで消すといった手法は吸収しておきたいです。っと問題はどれも取り組み応えあるのですが使っている知識は基礎編の内容のものなので、驚きです。

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

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

2018-01-17 15:40:32 ガラパゴスタディー吉川さんからの投稿です。

条件分岐については前回の復習ということもあり、理解度が増しました。

頭がこんがらがるときは、「こういうときはこうする」と一旦日本語で
口に出すと整理できました。
ちょっぴり恥ずかしい方法ですが、マクロとにらめっこしても答えは出ないと思うので、こういうことでも繰り返し行うことで、日本語を書くように深く考えなくてもマクロが書けるようになるのではないかなぁと思っています。
引き続き学習いたします。

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

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

2017-05-03 16:01:32 柴田 邦彦さんからの投稿です。

基礎コースフォローアップを受講中です。

[受講方法]
1.動画を見る前に、自力で課題(ドリル)にチャレンジしてみる。
2.動画を見る
3.小川先生のロジックと自分のロジックを比較する。
4.再度、小川先生のロジックでマクロを作成する。
時間は要しますが。上記の4ステップで学習しております

[質問]
一般的にマクロに正解はないと言われますが…
自力で作成したマクロがスマートにできてるかどうかは別として、
マクロの結果が同じであるならば、小川先生の解答と同じでなくても気にする必要ないのでしょうか?
それとも、結果が同じであっても、ロジックの考え方を改めるべきでしょうか?

[質問の意図]
与えられた課題ならば、実際に小川先生のロジックでマクロを組む方が、正解だと考えます。
しかしながら、実際に業務でマクロを自力で作成する場合は、細かく結果を見ながら試行錯誤をして作りあげていくことになり、解答があるわけではありません。(誰かに善し悪しを指導してもらえるわけでもない)
よって、必ずしも、スマートで誰が見ても分かりやすいマクロになるとは限りませんし、結果(ゴール)オーライでマクロを作ることになります。

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

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

2016-03-28 11:19:00 受講生さんからの投稿です。

MIDですっきり解決するほうが分かりやすいけれど、やっぱり
IF構文で最初に分岐処理する方法も覚えたいと思って、
動画をもう一度みたんです。

For gyo = 2 To 11
        If gyo = 2 Then     
        Else

なんとIFの条件分岐には、こういう指定もできるんですね!
今まで対象セルでの条件で分岐という使い方しか知らなかったので、
ループの中で「カウントが何回目のときだけは、これをしなさい」
という使い方。これも目からウロコでした。

このヒントから、gyo=2 then 以下を作ろうと思い
動画を止めてやってみたんですが、できませんでした(;´・ω・)
正解に納得。まだまだ理解不十分。
ForNext構文の最初でも最後でもできるようになりたいです!

後半の重複処理については前回の復習でもあるので、一発正解(^▽^)/

メーリングリストのためのcsvですか!
なるほど、使い道はいろいろあるのですね。
by gooska

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

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

2016-03-27 15:27:30 海上 美弥子さんからの投稿です。

リストからcsv形式のデータを作るマクロですね。
実務ではcsvをAccessやExcelに取り込んだり吐き出したりしていたので
これができるとなれば実務直結ですから興味津々です。
しそ巻きカウントの応用で、数値加算のところを文字列の追加という形で
できるのかなと最初の道筋はつきましたが、まだまだ理解が浅いらしく、動かしてみると
ラストの2文字列しか残っていなくて、形になるまで結構苦労しました。
ようやくできた!と思ったのが、動画で先生が始めに作られた
「ちょっと惜しい形ですね」と同じもの。つまり、先頭がカンマでした(笑)
なんとかしようといろいろ試したのですが、どうしてもダメで(´;ω;`)ウゥゥ
ギブアップして動画を見にきました。

なんと、ここでMIDやLENを使うとは!?まさに目から鱗状態(+_+)
出だしだけの例外処置として、先頭か末尾を単純操作するわけですね。

変数は初期設定されていない限り、値が代入されるまではempty(0)である
ということを確認させてくれる問題でした。
しそ巻きカウントや条件つき加算の場合なら、初期値が0でも結果に影響することは
ないのですが、今回のように文字列をカンマでつなぐ場合は、数値が代入される前にカンマが
入ってしまうので、empty時の変数の存在をいやでも意識させられます。
今まで気がつかなかった大事な点なので、とても勉強になります。

そして、この出だしの変数empty時の動きが最終的に求めたい結果の例外に
なってしまうことがあるから、出だしだけ条件分岐したり、最後に文字列の加工などを
することが発生すると。今後のために、ここは覚えておこうと思いました。
結論・・・・まだまだです(笑)
by gooska

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

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

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

小川先生お世話になります。
この動画の5:50のあたりで、Ctrl+Hで置換する場面がありますが、そのあたりの手順を詳しく教えていただけますか。
少しでも楽する方法を覚えたいものですから。
よろしくお願いいたします。

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

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

2015-08-04 22:50:18 鈴木優子さんからの投稿です。

自力で書いたマクロで動いて嬉しかったのですが、
やっぱり解答のマクロはシンプルでかっこいいですね。
わたしは、、、毎回書き出してしまいました。。。
mid 関数は思いつきませんでした。

Sub mondai()
    Dim gyo
    Dim gyousyamei
    Dim furigana
    For gyo = 2 To 11
        gyousyamei = Range("A" & gyo).Value
        furigana = Range("B" & gyo).Value
        If gyo = 2 Then
            Range("F2").Value = gyousyamei
            Range("F3").Value = furigana
        Else
            Range("F2").Value = Range("F2").Value & "," & gyousyamei
            Range("F3").Value = Range("F3").Value & "," & furigana
        End If
    Next
End Sub

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

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

2015-02-21 20:17:04 watanbe daichiさんからの投稿です。

今回の動画では私のつめ方の甘さが仕事にもついているように感じました。
最初のカンマを消す方法はいくつかの組み合わせで十分に出来るのですね…。
ありがとうございます。

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

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

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

最初は、どうしても「,(コンマ)」が残ってしまうと思ったので、自力だけでは解答に到達しませんでした(^_^;)

ここで、MId関数を使うことは思い付きませんでした。
Range(“F2”).Value = Mid(gyosya, 2)
Range(“F3”).Value = Mid(kana, 2)

「マクロを学ぶと言うことは、『視野を広げて考えること』でもあるのだな」
と実感しました。
毎回、勉強になります。
ありがとうございます(^o^)

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

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

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

今回は悩みました^^; でも自分でできたので嬉しいですヽ(*´v`*)ノ
最後にコンマがくるのはどうしたものかな… と考えてそれを解決したのが以下のコードです。

code
Sub complist1()
Dim i, all, all2
all = Range(“A” & 2).Value
all2 = Range(“B” & 2).Value

For i = 3 To 11
all = all & “,” & Range(“A” & i).Value
all2 = all2 & “,” & Range(“B” & i).Value
Next
Range(“F2”).Value = all
Range(“F3”).Value = all2
End Sub
/code

mid関数は思いつきませんでした。

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


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

 

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

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

トップへ