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

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

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

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

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

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

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

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

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

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

[ 続きを読む ]  返信件数: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件  [ 動画を見る] 

[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件  [ 動画を見る] 

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

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

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

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

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

2014-05-14 23:14:50 荏隈 直樹さんからの投稿です。

今日は仕事後で疲れたので頭の体操だけ

Sub taisou10_1()
    Worksheets("Sheet3").Range("A1").Value = Date + 3
End Sub

Sub taisou10_2()
    Worksheets("Sheet3").Range("A2").NumberFormatLocal = "@"
    Worksheets("Sheet3").Range("A2") = "001"
End Sub

Sub taisou10_3()
    Worksheets("Sheet3").Range("A3").NumberFormatLocal = "@"
    Worksheets("Sheet3").Range("A3") = "2010-08-31"
End Sub

Sub taisou10_4()
    Dim RA3 As String
    RA3 = Worksheets("Sheet3").Range("A3").Value
    Worksheets("Sheet3").Range("A4").Value = Replace(RA3, "-", "/")
End Sub



[1]は、dateadd関数なんてものがあったのですね。
[4]のreplace関数は、いただいたテキストを元に見よう見まねで書いてみました。

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


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

 

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

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

トップへ