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

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

12>

[9012]フォローアップミニセミナー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]フォローアップミニセミナーNo.12

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

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

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

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

[9003]フォローアップミニセミナー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]フォローアップミニセミナーNo.04

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

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

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

[7239]フォローアップミニセミナー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]フォローアップミニセミナーNo.10

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

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

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

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

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

[6621]フォローアップミニセミナーNo.02

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

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

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

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

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

[5698]フォローアップミニセミナー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]フォローアップミニセミナー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]フォローアップミニセミナー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]フォローアップミニセミナー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]フォローアップミニセミナーNo.12

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

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

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

[4326]フォローアップミニセミナーNo.06

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

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

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

[4322]フォローアップミニセミナーNo.02

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

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

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

[4131]フォローアップミニセミナーNo.07

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

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

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

[3978]フォローアップミニセミナー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件  [ 動画を見る] 

[3788]フォローアップミニセミナーNo.08

2015-02-10 05:16:13 井上 聡さんからの投稿です。

Workheetオブジェクトについて
テスト1の場合のはwsを変数で宣言していますので、Woriksheetはオブジェクトを指し、
テスト2の場合はエラーになり、Activesheetで動作します。従って、この場合のWorksheetはプロパティーでオブジェクトを取得する必要になるのでしょうか。
Worksheetをオブジェクトとして使用するのは、変数を宣言する時だけでしょうか。

Sub test1()
Dim ws As Worksheet
For Each ws In Worksheets
Range("A1").Value = ws.Name
Next
End Sub
Sub test2()
Dim ws As Worksheet
For Each ws In Worksheets
Range("A1").Value = Worksheet..Name
Next
End Sub

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

[3771]フォローアップミニセミナーNo.08

2015-02-08 09:13:44 井上 聡さんからの投稿です。

ニックネームについて
Sub w05()
Dim ws As Worksheet
Dim cnt As Long
cnt = 2
For Each ws In Worksheets
If ws.Range("K" & Rows.Count).End(xlUp).Value < 0 Then
Worksheets("集計").Range("B" & cnt) = ws.Name’(A)
cnt = cnt + 1
End If
Next

End Sub
(A)にwsをworksheetにするとエラーになります。
ニックネームをつけると必ずニックネームを使用しないといけないのでしょうか。

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

[3375]フォローアップミニセミナーNo.04

2014-12-02 00:27:41 受講生さんからの投稿です。

Findメソッドを使用して書いてみました。
コードがうまく表示されるか、テストも兼ねています。

Sub Sample5() 
    Dim i As Long, FoundCell As Range
    For i = 4 To 15
        Set FoundCell = Range("A4:A29").Find(what:=Cells(i, "E").Value)
        If Not FoundCell Is Nothing Then
            FoundCell.Offset(0, 2).Value = Cells(i, "F").Value
        End If
    Next i
End Sub

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

[3351]フォローアップミニセミナーNo.04

2014-11-28 23:01:40 伊久間博之さんからの投稿です。

発展編で習ったfor each構文をあえて使ってみました。

Sub toi5()
    Dim hida As Range
    Dim migi As Range
    For Each hida In Range("A4:A29")
        For Each migi In Range("E4:E15")
            If hida.Value = migi.Value Then
                Range("C" & hida.Row).Value = Range("F" & migi.Row).Value
                Exit For
            End If
        Next
    Next
End Sub

この場合for next構文の方がシンプルでわかりやすいですね。

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

[2837]フォローアップミニセミナーNo.06

2014-10-28 15:20:18 浜口 智之さんからの投稿です。

第三回目で色についてググっているときに
今回の回に少し登場したイミディエイトウインドウの使い方に出会いましたよ。
その時はへーと思ってましたが、、、
その時出会ったのはcolorindexを調べるのに「?activecell.interior.colorindex」。

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

[2832]フォローアップミニセミナーNo.03

2014-10-27 22:46:08 浜口 智之さんからの投稿です。

調べてみましたらエクセル2013にはオフラインヘルプがなく凹みました。
ないですよね?オフラインのヘルプ…
バージョン上がって使いにくくなってるのは残念ですね。
ググったり、オンラインヘルプを活用していきます。

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

[2809]フォローアップミニセミナーNo.02

2014-10-26 18:49:36 浜口 智之さんからの投稿です。

今回でFor Each構文についてしっくりくるようになりました。
あと基礎編で学んだLeft関数、Right関数、len関数、Instr関数は悩むことなく、うまく組み合わさりました。
難しかったのは色の設定。エクセルのバージョンによって違ってくるのですね。
完全には理解が難しいですが、自動記録から試行錯誤して形作ることはできました。
発展編になって自動記録の中身が読めるのは、かなりの強みですね。

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

[2806]フォローアップミニセミナーNo.01

2014-10-26 15:28:30 浜口 智之さんからの投稿です。

さっそくフォローに取り掛かりました。
昨日の今日ということもあってすんなり自動記録を使っての作業もできました。
あとは基礎編の知識で楽にクリアです。
ただ今回は発展編で学んだ as Long などに意識を向けました。
少しづつ基礎編に発展編の知識を組み込んでいきたと思います。
引き続きよろしくお願いします。

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

[2642]フォローアップミニセミナーNo.12

2014-10-05 15:37:48 受講生さんからの投稿です。

IsNumeric関数、おもしろいですね。
小さいパーツを組み合わせれば、どんなに大きくて難しいことでも解けると実感できました。

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

[2640]フォローアップミニセミナーNo.11

2014-10-05 08:39:38 受講生さんからの投稿です。

順調に書けました。
もう少し頑張って、発展編2に突入する予定です。

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

[2615]フォローアップミニセミナーNo.10

2014-10-02 07:13:56 受講生さんからの投稿です。

Select CaseとFor Each構文、両方使いこなせれば、間違いなく幅は広がりますね。
僕も個人的には、Else ifが続くよりは、Select Caseの方が可読性が優れているような気がして好きです。

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

[2588]フォローアップミニセミナーNo.09

2014-09-30 06:50:55 受講生さんからの投稿です。

フォローアップセミナーNo.9も比較的すんなり進めました。
別件ですが、イミディエイトウィンドウに?Worksheets.Countとかって使うことに慣れてきました。
先生のおかげでイミディエイトウィンドウも次第に使いこなせており、感謝しています。

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

[2576]フォローアップミニセミナーNo.08

2014-09-28 18:12:17 受講生さんからの投稿です。

フォローアップミニセミナーNo.07と続けて見たので、理解が深まり、本当に助かりました。

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

[2575]フォローアップミニセミナーNo.07

2014-09-28 17:30:11 受講生さんからの投稿です。

ハナコのステップ、馴染んできました。
まだまだ頑張って、先に進んでいきます。

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

12>

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

 

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

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

トップへ