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

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

12>

[11372]エクセルマクロ・VBA発展編1フォローアップミニセミナーNo.10

2019-04-23 21:04:10 ゲストさんからの投稿です。

小川さん
いつも大変楽しく勉強させていただきております。

ウォーミングアップ問題1についての質問です。
私は以下のようなコードを書いたのですが、小川先生と同じ日付が出ました。
こちらの方が簡素でいいと思ったのですが、このコードでも問題はないですか?
Sub mondai1()
Worksheets(“Sheet3”).Range(“A1”).Value = Date + 3
End Sub

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

[11093]エクセルマクロ・VBA発展編1フォローアップミニセミナーNo.09

2019-02-09 22:53:24 牧野千秋さんからの投稿です。

何かの本に書いてあった
「マクロを知らない人が「i=i+1」を見たらなんじゃこらと思う」
ある程度自分で書けてきても「i=i+1」の使い方がわからなかった
今思う、「i=i+1」ってスゴい!!

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

[11092]エクセルマクロ・VBA発展編1フォローアップミニセミナーNo.05

2019-02-09 22:50:14 牧野千秋さんからの投稿です。

同じことでひっかかる人たくさんいるんですね。
でもこれはやってしまうわ。

> 一度、worksheetオブジェクトをSelectしてからじゃないと
> RangeオブジェクトをSelectできないですね

Sub 問題1()
'[1] すべてのシートを順番にSelectし、
'SelectされたシートでセルA1をSelectするマクロを作りなさい
    Dim w As Worksheet
    For Each w In Worksheets
        w.Range("A1").Select
    NEXT
End Sub

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

[11091]エクセルマクロ・VBA発展編1フォローアップミニセミナーNo.02

2019-02-09 22:43:36 牧野千秋さんからの投稿です。

感想です

私もやりました「 .Color と .ColorIndex」
マクロの記録で「5287936」と出て作って解答見たら
「10」って書いてあったからなんだ「10」でいいのかと
やってみたら見出しが黒くなった(笑)



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

[10666]エクセルマクロ・VBA発展編1フォローアップミニセミナーNo.09

2018-10-23 22:32:24 Cacaoさんからの投稿です。

いつもお世話になっております。
No.09.の問1~4をスムーズに解けました。
基礎編では、初めてのことでかなり難しく感じたことも、今では講義を通して、タイピング操作、変数を活用したり自分のミスに気が付いたりと、明らかにスキルが以前より上がっているように思い、すごく嬉しく思います。

特に、動画の回答でこれは”パターンなので”という箇所の意味が今では完全に理解出来ました。今では基礎編を受講しておいて本当に良かったと思います。まだ発展編1の途中ですが、次は発展編2やその他上級編の講義も受けてさらにスキルアップを目指したいと検討しています。

実務ではまだ応用しきれてませんが、いつか高いリターンが得られることを楽しみにして、どんどんVBAを吸収していきたいと思います。

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

[10577]エクセルマクロ・VBA発展編1フォローアップミニセミナーNo.13

2018-09-19 19:09:26 わかやまさんからの投稿です。

小川様

ありがとうございます。発展編に進む前に一度復習はしたのですが、新しい手法で書き直せないかということを踏まえながら、今一度やり直してみたいと思います。

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

[10573]エクセルマクロ・VBA発展編1フォローアップミニセミナーNo.13

2018-09-19 13:39:11 わかやまさんからの投稿です。

小川様

今回の問題はかなり勉強になりました。

・trim関数、replace関数は今後使えそう
・select case の一つの条件分岐の中に、複数の条件を入れられること
・ループに入る前に初期化しておくことの大切さ。
発展編に入って様々な事を学んでいますが、基礎編の演習がかなり効いている風に思えます。まだまだやりたいことはできない状況ですが、確実に近づいているように思います。

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

[10299]エクセルマクロ・VBA発展編1フォローアップミニセミナーNo.10

2018-08-02 05:12:18 受講生さんからの投稿です。

小川さん
お世話になります。
朝の体操の問題で、コード中に「.Value」を入れなくても結果は同じでした。試しに左辺だけ入れてみても動きました。先日のworksheets とsheets ではありませんが、入れる入れないで、本質的な違いがどこかで生じているのでしょうか。
もしかすると、この件に関しても今までの講義で出てきているかもしれませんが、よろしくお願いします。

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

[10288]エクセルマクロ・VBA発展編1フォローアップミニセミナーNo.05

2018-07-26 05:07:55 受講生さんからの投稿です。

小川さん
いつも大変お世話になっております。
自動記録したら「worksheets(“sheet2”)」でなく「sheets(“sheet2”)」と
でてきました。worksheetsと、ただのsheets、挙動は同じでしたが
何か違いがあるのでしょうか。違いがないなら、短い方が楽だと思うのですが。ちなみに2016バージョンです。

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

[10217]エクセルマクロ・VBA発展編1フォローアップミニセミナーNo.12

2018-07-05 01:17:29 のんのんさんからの投稿です。

小川さん

こんにちは。
『発展編第6章』の動画が見当たらないのですが、どこにあるか教えていただいてもよいですか?
お手数をおかけしてすみませんが、よろしくお願いいたします。

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

[10078]エクセルマクロ・VBA発展編1フォローアップミニセミナーNo.08

2018-06-07 05:22:54 受講生さんからの投稿です。

小川様
set構文の簡単な練習とのことですが、発展編1では、どの回で解説したのでしょうか。習った記憶がないのですが。よろしくお願いします。

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

[9574]エクセルマクロ・VBA発展編1フォローアップミニセミナーNo.01

2018-03-12 21:44:13 受講生さんからの投稿です。

エクセルマクロ・VBA発展編1フォローアップミニセミナーを
今日から復習します。
基礎体力をつけ直したいと思います!

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

[9439]エクセルマクロ・VBA発展編1フォローアップミニセミナーNo.04

2018-02-24 18:55:45 受講生さんからの投稿です。

小川先生
大変お世話になっております。
中級編を一通りに勉強を完了しました。
VBAを少しずつ実務に応用していきます。

今回動画4の内容を真似して下記のように実装コートを書きました。
Sub 引当()
Dim cHida As Long
Dim cMigi As Long
Dim Lastrow As Long
Lastrow = Range(“a65536”).End(xlUp).Row

For cMigi = 5 To 735
For cHida = 5 To Lastrow
If Range(“A” & cHida).Value = Range(“E” & cMigi).Value Then
Range(“b” & cHida).Value = Range(“F” & cMigi).Value
Range(“a” & cHida).Interior.ColorIndex = 4
Else
Range(“b” & cHida).Value = “非BOM”
Range(“a” & cHida).Interior.ColorIndex = 22
End If
Next
Next
End Sub
何故かF列の内容をうまくB列に反映されていないです。
大変お手数ですが、見て頂けると幸いです。
どうぞよろしくお願いいたします。

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

[9194]エクセルマクロ・VBA発展編1フォローアップミニセミナーNo.06

2017-12-09 16:39:17 受講生さんからの投稿です。

オブジェクト変数を使ったマクロについての質問です。
2つのブック間でのデータコピペです。
下記述マクロの不具合点を教えて下さい。
最後の行で「オブジェクトは、このプロパティまたはメソッドをサポートしていません。」エラーが発生します。
Sub object_sample()
Dim myBook As Workbook
Dim seeBook As Workbook
Dim mySheet As Worksheet
Dim seeSheet As Worksheet

Set myBook = Workbooks(“Book1.xlsm”)
Set seeBook = Workbooks(“Book2.xlsm”)
Set mySheet = Workbooks(“Book1.xlsm”).Worksheets(“Sheet1”)
Set seeSheet = Workbooks(“Book2.xlsm”).Worksheets(“Sheet2”)

myBook.mySheet.Range(“A1”).Value = seeBook.seeSheet.Range(“B2”).valule
End Sub

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

[9012]エクセルマクロ・VBA発展編1フォローアップミニセミナーNo.04

2017-10-07 23:12:49 浦山大さんからの投稿です。

2回目です。
1回目の時にコメント欄でForEach構文で作成されたコードがあったため、挑戦してみました。offsetも閃くことが出来ました。
HidaとMigiは鉄板ですね。
rgHidaがくどいかな?最初with文入れてみたんですが、行数増えちゃうので消しました。もう少し長大なときは使いたいと思いました。

Sub renshu()
    Dim rgHida As Range
    Dim rgMigi As Range
    For Each rgMigi In Range("E4:E15")
        For Each rgHida In Range("A4:A29")
            If rgHida.Value = rgMigi.Value Then
                rgHida.Font.Bold = True
                rgHida.Offset(, 2).Value = rgMigi.Offset(, 1).Value
                Exit For
            End If
        Next
    Next
End Sub

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

[9004]エクセルマクロ・VBA発展編1フォローアップミニセミナーNo.12

2017-10-06 16:16:53 浦山大さんからの投稿です。

・Is○○関数、一通りヘルプで確認しました。
・1文字ずつ調べる、というのが久しぶりで思いつきませんでした。

まだまだ向上の余地はたくさんありますね。
道具をたくさん頂いているので、きちんと頭に入っていれば、
もう大抵のことは出来るんじゃないかなあ、と感じました。
使えないのは練習してないだけ、ですね。
精進します。

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

[9003]エクセルマクロ・VBA発展編1フォローアップミニセミナーNo.11

2017-10-06 14:06:41 浦山大さんからの投稿です。

折角なので、テキストを見返して色々練習してみました。
ここに何か書くって思うと、色々試そうと思えます。

Sub renshu()
    Worksheets("Sheet3").Range("B2").Value = UCase(Worksheets("Sheet3").Range("A2").Value)  'AE-055
    Worksheets("Sheet3").Range("B3").Value = Trim(Worksheets("Sheet3").Range("A3").Value)   'AE-055(左右のスペースなくなる)
    Worksheets("Sheet3").Range("B4").Value = LTrim(Worksheets("Sheet3").Range("A3").Value)  'AE-055  (先頭文字以前のスペースがなくなる)
    Worksheets("Sheet3").Range("B5").Value = RTrim(Worksheets("Sheet3").Range("A3").Value)  '  AE-055(最後の文字以後のスペースがなくなる)
    Worksheets("Sheet3").Range("B6").Value = Trim(UCase(Worksheets("Sheet3").Range("A4").Value))    'AE-055(左右スペースなくなる、且つ小文字を大文字にする)
    Worksheets("Sheet3").Range("B7").Value = StrConv(Worksheets("Sheet3").Range("A4").Value, vbUpperCase)   'AE-055(小文字を大文字にする)
    Worksheets("Sheet3").Range("B8").Value = StrConv(Worksheets("Sheet3").Range("A4").Value, vbProperCase)  'Ae-055(先頭だけ小文字を大文字にする)
    Worksheets("Sheet3").Range("B9").Value = Trim(StrConv(Worksheets("Sheet3").Range("A4").Value, vbProperCase + vbWide))   ' Ae-055(左右のスペース削除、先頭だけ小文字→大文字、半角→全角にする)
End Sub


Ucase=Upper
Lcase=Lower
LTrim=Left
RTrim=Right
StrCovr=StringConvert

って意味なんですかね?
知ってる言葉と意味づけして憶えました!
多分これで大丈夫かと思っています。
それにしてもテキストは奥深いです。
コード書くのと同じくらい、新しいことを学び、整理する癖もつけていきたいと思います。

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

[8600]エクセルマクロ・VBA発展編1フォローアップミニセミナーNo.04

2017-08-02 07:52:11 受講生さんからの投稿です。

setステートメントについて
オブジェクト型変数を宣言している場合、setステートメントでニックネームをつけると思いますが、mini03の解答例の3番はsetステートメントの記載があるのですが、4番は、オブジェクト型変数を宣言しているのにsetステートメントでニックネームをつけていません。
for eachi in nextステートメントを使用する場合は、setステートメントの記載は、省略するきまりになっているんですか。

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

[7239]エクセルマクロ・VBA発展編1フォローアップミニセミナーNo.10

2016-10-29 18:20:18 多和田 真也さんからの投稿です。

小川先生

もしかしたら、今更な質問なのかもしれませんが、教えてください。

動画や模範解答の中では、自動記録で色を確認する際に、2桁の数字で色が指定されているようなのですが、私の利用している環境では

まったく違う指定になります。5桁の数字で表示されたり、もしくは全く違う表現で表示されたりします。

例えば、今回のミニセミナーNo.10の例では、水色の背景にする操作を自動記録すると、こんな感じで記録されます。

Sub Macro1()

With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent1
.TintAndShade = 0.599993896298105
.PatternTintAndShade = 0
End With
End Sub

できれば、動画の中で扱われているように、.Interior.ColorIndex = 8

のような、1桁とか2桁の数字で色番号が表記されるように自動記録の設定を変更したいと思っているのですが、その方法が分かりません。

どうしたらよいのでしょうか?

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

[6636]エクセルマクロ・VBA発展編1フォローアップミニセミナーNo.10

2016-05-16 14:01:48 受講生さんからの投稿です。

今回は盛りだくさんでした☆

dateadd関数を知らなかったので、試しにdate+3と書いてみたらちゃんと動きました。
こびとちゃんにとってはdateaddの方が親切でしょうか?

selectcaseの方がすっきり見えるので、たくさん練習してスラスラ書けるように慣れていこうと思います。

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

[6621]エクセルマクロ・VBA発展編1フォローアップミニセミナーNo.02

2016-05-10 14:33:43 受講生さんからの投稿です。

シートの見出しの色が黒になってしまって驚きましたが、過去のコメントで解決しました☆

関数はどれをつかえばいいのか?どんな式を立てればいいのか?
スッとわかるようなっていて、自分で驚きました。

基礎編でみっちりやった成果なのだと思いました(^^♪

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

[5698]エクセルマクロ・VBA発展編1フォローアップミニセミナーNo.03

2016-02-05 04:56:43 tomoki1105さんからの投稿です。

小川さん

いつもお世話になっております。

Excel 2010にて自動記録でファイルを開く動作をすると下記のようなマクロが記録されました。

ChDir “C:\Users\tomo\Downloads\mini03”
Application.ActiveProtectedViewWindow.Edit
Windows(“mini03.xls”).Activate

動画で解説されているマクロと形式が違うのはExcelのバージョンの違いであるからといった理解で間違いないでしょうか?

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

[5377]エクセルマクロ・VBA発展編1フォローアップミニセミナーNo.04

2015-12-03 11:50:44 古口梨絵さんからの投稿です。

発展編を受講し始めて1ヶ月。
ようやく本編を見終わり、フォローアップに突入しました。

今回のお題ですが、最初は勝手にFor Each構文を使わなければ!と思い込んでしまい、作成してみました。
基礎編でもFor Next構文で作った!と思い出し、なぜかmigiはFor Next構文・・・。
C列を指定するのも上手いこと思いつかず、Offsetで表現してみましたが、
For Each構文を使った場合にC列を指定する上手な(スマートな)表現方法ってあるものなのでしょうか?

Sub mondai5()
    Dim rg As Range
    Dim migi As Long
    For migi = 4 To 15
        For Each rg In Range("A4:A29")
            If rg.Value = Range("E" & migi).Value Then
                rg.Offset(0, 2).Value = Range("F" & migi).Value
            Exit For
            End If
        Next
    Next
End Sub


まだまだテキストを見ながら、調べながらでないと書けませんが、
日々精進していきたいと思います。

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

[4697]エクセルマクロ・VBA発展編1フォローアップミニセミナーNo.11

2015-07-18 17:19:10 森 則彦さんからの投稿です。


私、定年を迎えた 森です。 以前よりエクセルを使いながら ずっとマクロの事が気になりながらも、一歩が踏み出せづにもやもやしておりました。学生時代にBASICはちょっとだけ勉強して概念だけは何とか理解できたものの、実際の細かい職人的な技の様なものが、本では読み取れません。そこでスクール等に入るのが早道かなと思い、NETで探していたら、ガラパゴスタディーさんの教室 なんかちょっと、、、、、感じるものがあり始めました。最近、相続のことが気になり税金の計算をエクセルで試算できるといいかなと。マクロを使わなくても出来るとは思いますが? マクロを使った税金申告書等、目指しております。税金、不動産、建築等いろいろ勉強中です。学生時代にもっと勉強しておけばよかったな………………

毎回、皆さんのコードを拝見しながら、あえて違ったやり方でいろいろ作れない物かと日々勉強しております。すると 色々な発見がありますよ。。。。。。。
以下にあえて、for each 構文で作ってみました

code
Sub ren()
Dim rg As Range
Dim ku As Long
Dim mx As Long
mx = Range(“c” & Rows.Count).End(xlUp).Row
For Each rg In Range(“c2:c” & mx)
ku = InStr(rg, “区”)
rg.Offset(, 5).Value = Mid(rg, ku + 1)
Next
End Sub
/code

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

[4605]エクセルマクロ・VBA発展編1フォローアップミニセミナーNo.03

2015-06-29 01:45:42 唐沢俊孝さんからの投稿です。

小川先生

先日質問しました頭の体操3ですが、動画の説明はよく分かりました。
その内容で消化したいのですが、1点どうしても知りたいところがありましたので、
アドバイスお願いいたします。

頭の体操3は、”固有オブジェクトの変数”を学んだ直後にトライしていましたので、
それを利用してできないか考えてコードを書きましたが、エラーになりました。
保存されたエクセルブックにニックネームをつけて開く操作ができると思っていましたが、
以下のとおり、うまくいきませんでした。

問題[1]今開いているファイルと同じフォルダにあるエクセルファイル「Book2.xls」を開く
Sub taisou3() 
Dim wb As Workbook 
Set wb = Workbooks(“Book2.xls”)  ’ここでデバッグとなり先へ進みません。
                 
Workbooks.Open Filename:=Thisworkbook.path & “\” & wb                       
End Sub

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

[4335]エクセルマクロ・VBA発展編1フォローアップミニセミナーNo.12

2015-05-21 06:30:32 山田 将之さんからの投稿です。

渡された文字列が数字として解釈できるかどうかを判定する、IsNumeric関数についても触れています
はじめて知りました。

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

[4326]エクセルマクロ・VBA発展編1フォローアップミニセミナーNo.06

2015-05-20 06:26:50 山田 将之さんからの投稿です。

マクロ書けるようになってきました。
間違えを修正しながらですが、うまく動くと感動します。

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

[4322]エクセルマクロ・VBA発展編1フォローアップミニセミナーNo.02

2015-05-19 22:08:40 山田 将之さんからの投稿です。

ひとつの群れ(コレクション)に対して繰り返し処理をするFor Each構文
For Next構文は 2 to 15のように数字をしていしますが For Each構文は、しなくていいんですよね

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

[4131]エクセルマクロ・VBA発展編1フォローアップミニセミナーNo.07

2015-04-21 19:53:00 watanbe daichiさんからの投稿です。

リストにする時も非常にわかりやすかったです。
業務の関係上、逆の内容を実行することも多いのですが。
一つ一つを繰り返していきたいと思います。

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

[3978]エクセルマクロ・VBA発展編1フォローアップミニセミナーNo.10

2015-03-17 11:09:51 宮下 郁子さんからの投稿です。

replace関数のところ、文字列すべてを置き換えるコードを書いていましたが、”/”を”-“に変えるだけでよかったんですね。気づけなかったです。勉強になりました。

 Sub mondai4()
    Worksheets("Sheet3").Range("A4").Value = Replace(Worksheets("Sheet3").Range("A3").Value, "2010-08-31", "2010/08/31")
End Sub

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

12>

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

 

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

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

トップへ