エクセルマクロ 達人養成塾 オンライン講座 質問と回答

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

[7680]エクセルマクロ・VBAを利用するための推奨設定 - イントロダクション

2017-02-17 09:34:07 ゲストさんからの投稿です。

Excel2016の設定はどうですか?

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

[7676]エクセルマクロの全体像

2017-02-16 16:48:10 野田 宏さんからの投稿です。

マクロは難しいものと思い避けていましたが、自分でもできそうな気がしてきました。

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

[7673]エクセル仕事を劇的に簡単にするDPRフレームワークその1

2017-02-16 01:24:15 mihoさんからの投稿です。

いつもながら本当に分かりやすい。忘れちゃってもまた見直し、早く進みすぎてついて行けなければストップし、自分のペースで進められるのがとても素晴らしい。

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

[7672]イベントの生じたセルの行番号によって処理を切り分ける

2017-02-15 23:17:05 受講生さんからの投稿です。

小川先生へ

Select Case でしたか!!
1行で記述ができるのがいいですね。

モヤモヤがすっきりしました(^^♪
ありがとうございました。

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

[7667]イベントの生じたセルの行番号によって処理を切り分ける

2017-02-15 00:44:36 受講生さんからの投稿です。

小川先生へ

Targetの範囲を自由に設定できるのがおもしろくて、
いろいろ試しているところです。

複数の離れたセル(例えばC7とC9とC11)をTargetにする場合を考えて作ってみました。
これでもちゃんと動いたのですが
何かもっと良い方法があるような気がしています。

アドバイスをお願いします。


 Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$C$7" Then
    
    ElseIf Target.Address = "$C$9" Then

    ElseIf Target.Address = "$C$11" Then
    
    Else
        Exit Sub
    End If

    If Target.Row <= 6 Then
        Exit Sub
    End If
    
    If Target.Column <> 3 Then
        Exit Sub
    End If
    
    
    If Target.Value <> UCase(Target.Value) Then
        Target.Value = UCase(Target.Value) '受け取った文字列を大文字に直す
    End If
    
    If Target.Value = "D" Then
        Target.Offset(, 1).Value = "DVD無料"
    ElseIf Target.Value = "C" Then
        Target.Offset(, 1).Value = "CD無料"
    ElseIf Target.Value = "J" Then
        Target.Offset(, 1).Value = "ジャケット無料"
    Else
        Target.Offset(, 1).ClearContents
    End If
End Sub

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

[7666]Visual Basic Editorの基本用語と使い方 - 標準モジュールとコードウィンドウ

2017-02-14 22:20:36 受講生さんからの投稿です。

標準モジュールと Microsoft Excel Objects の繋がり、違いがわかりませんのでご教授下さいませ。

Sheet1をダブルクリックして、マクロを書くのと、標準モジュールにマクロを書くのでは何が違うのでしょうか?

また、VBAProject(FUNCRES.XLAM)と1番上にあるのですがこれは何でしょうか?

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

[7665]Visual Basic Editorの基本用語と使い方 - プロパティウィンドウ

2017-02-14 21:56:41 受講生さんからの投稿です。

オブジェクトとは特徴のあるモノだとの説明がありました。
逆に、特徴の無いモノはあるのでしょうか?
またここのカテゴリでないのかもしれませんが、
VBA
VBE
の定義の違いがよくわかりませんのでご教授下さいませ。
よろしくお願い致します。

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

[7660]書式設定の活用方法、書式設定が原因で起こりうる問題とその対処法

2017-02-14 11:49:00 受講生さんからの投稿です。

なんとなくわかっていたことが整理でき勉強になりました。ありがとうございます。

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

[7659]エクセルマクロの全体像

2017-02-14 11:24:05 受講生さんからの投稿です。

マクロ、早く使ってみたいです!

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

[7658]複数の記号の位置を調べて文字列を切り出す

2017-02-14 07:48:50 受講生さんからの投稿です。

関数をコピーしておいて貼り付けることでとても関数が書きやすくなるなと思い、勉強になりました。ありがとうございます。

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

[7657]Left関数、Mid関数、Find関数を組み合わせる

2017-02-14 07:36:15 受講生さんからの投稿です。

とてもわかりやすかったです。ありがとうございます。

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

[7653] .zip ファイルとは?

2017-02-13 10:04:09 小川一恵さんからの投稿です。

私は、子どもの声は気になりませんでした。
小川さんはこういう環境でお仕事されているんだな、と好ましく感じました。

内容については知っている事でしたが、説明の仕方やまとめ方が勉強になりました。
ありがとうございました。

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

[7650]基礎講座第1章1 - マクロの入ったファイルを開くときの注意点

2017-02-12 20:53:13 受講生さんからの投稿です。

お世話になります。

動画にある標準モジュールというVBAProjectの下?にあるようなものが見当たりません。どのようにすれば表示されるのでしょうか?

エクセル2013です。
ご教授頂ければ幸いです。

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

[7642]エクセルマクロの全体像

2017-02-12 13:56:09 ゲストさんからの投稿です。

マクロは難しく取っつきにくいもの・・・と思っていました。
動画を観て、やり方を学べば簡単にマクロを組める!と思いました。

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

[7630]残業時間がいちばん多い従業員の情報を出力する。Max関数、Min関数より便利なマクロ

2017-02-09 07:05:36 受講生さんからの投稿です。

小川先生

コメント有難うございます。
「英単語1語の言葉」の選択には、要注意ですね。

「ハンガリアン記法」の動画を見直してみたいと思います。

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

[7626]エクセルマクロの全体像

2017-02-08 21:54:59 受講生さんからの投稿です。

自分の仕事だったらと想像してワクワクしました。
モチベーションがあがりました!
ありがとうございました。

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

[7618]苗字と名前を分割して別のセルに投入する

2017-02-07 20:31:45 受講生さんからの投稿です。

-1とか+1をとっさに思い付かないので、大変勉強になりました。

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

[7617]エクセルマクロの全体像

2017-02-07 18:13:33 ゲストさんからの投稿です。

エクセルマクロでできることの一例のイメージがつかめました。
事例サンプルエクセルファイルなども活用し、業務の自動化・効率化に実践していきたいと思います。

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

[7614]エクセルマクロの全体像

2017-02-07 13:01:07 受講生さんからの投稿です。

説明が丁寧で,資料も Excel のファイルが配布されていたり,PDFでの説明書があるなど理解もしやすいと思いました。
同じ繰り返しの作業をボタン一つでカンタンに完了することを目標に最後まで受講します。

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

[7606]エクセルマクロの全体像

2017-02-05 19:35:39 受講生さんからの投稿です。

今私がやっている仕事が、10000件以上あるデータの分析、分析を形にしてレポートを出し、次の動きにつなげるという仕事です。そして10000件以上あるデータが複数のシートに分かれているため、vlookup関数、iferror関数などを使ってデータ化し、ピボットテーブルで表を作るといった作業を毎週行っています。
正直データ化だけでも1日がかりで何も成果を望む事ができない状況でした。
マクロは難しいという印象がありましたが、ここで勉強して仕事に活かしていきたいと思います。

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

[7605]エクセルマクロの全体像

2017-02-05 18:35:55 山本 佳さんからの投稿です。

エクセルマクロを使えば、より自分の時間を作り出すための仕組み作りができるのですね
そして何より、使いこなせるとかっこいいですね、ぜひ習得したいと思います

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

[7604]残業時間がいちばん多い従業員の情報を出力する。Max関数、Min関数より便利なマクロ

2017-02-05 14:09:18 受講生さんからの投稿です。

小川先生

最大値が複数存在した場合についてのコードを投稿します。
よろしくお願いします。

【課題を以下の通り、設定しています。】
 問題[1] 一番得点の高い人が複数いた場合でも抽出可能にする
 問題[2] 残業時間が一番多い人が複数いた場合でも抽出可能にする
 問題[3] 残業時間が一番多い人が複数いた場合でも抽出可能にする

'**************************************************************
'問題[1] 一番得点の高い人が複数いた場合でも抽出可能にする
'**************************************************************

Sub katinuki()
    
    Dim gyou As Long
    Dim kati As Long
    
    '処理1
    kati = 2
    For gyou = 2 To 11
        If Range("G" & kati).Value < Range("G" & gyou).Value Then
            kati = gyou
        End If
    Next gyou
'    Range("J" & kati).Value = "最高点です" '←不要かも

    '処理2
    For gyou = 2 To 11
        If Range("G" & kati).Value = Range("G" & gyou).Value Then
            Range("J" & gyou).Value = "最高点です"
        End If
    Next gyou
End Sub

'**************************************************************
'問題[2] 残業時間が一番多い人が複数いた場合でも抽出可能にする
'**************************************************************

Sub kati2()

    Dim gyou As Long
    Dim Migi As Long
    Dim kati As Long
    
    '処理1
    kati = 6
    Migi = 4
    For gyou = 6 To 33
        If Range("C" & kati).Value < Range("C" & gyou).Value Then
            kati = gyou
        End If
    Next gyou
'    Range("K" & Migi).Value = Range("B" & kati).Value '←不要かも
'    Range("L" & Migi).Value = Range("C" & "5").Value  '←不要かも
'    Range("M" & Migi).Value = Range("C" & kati).Value  '←不要かも
   
    '処理2
    For gyou = 6 To 33
        If Range("C" & kati).Value = Range("C" & gyou).Value Then
            Range("K" & Migi).Value = Range("B" & gyou).Value
            Range("L" & Migi).Value = Range("C" & "5").Value
            Range("M" & Migi).Value = Range("C" & gyou).Value
            Migi = Migi + 1
        End If
    Next gyou
End Sub

'**************************************************************
'問題[3] 残業時間が一番多い人が複数いた場合でも抽出可能にする
'**************************************************************

Sub kati3()
    
    Dim gyou
    Dim Migi As Long '追加
    Dim kati
    Dim retu
    Migi = 4 '追加
    
    retu = "C"
    kati = 6
    
    '処理1
    For gyou = 6 To 33
        If Range(retu & kati).Value < Range("C" & gyou).Value Then
            retu = "D"
            kati = gyou
        End If
    Next gyou
    
    For gyou = 6 To 33
        If Range(retu & kati).Value < Range("D" & gyou).Value Then
            retu = "D"
            kati = gyou
        End If
    Next gyou
    
    For gyou = 6 To 33
        If Range(retu & kati).Value < Range("E" & gyou).Value Then
            retu = "E"
            kati = gyou
        End If
    Next gyou
    
    For gyou = 6 To 33
        If Range(retu & kati).Value < Range("F" & gyou).Value Then
            retu = "F"
            kati = gyou
        End If
    Next gyou
    
    For gyou = 6 To 33
        If Range(retu & kati).Value < Range("G" & gyou).Value Then
            retu = "G"
            kati = gyou
        End If
    Next gyou
    
    For gyou = 6 To 33
        If Range(retu & kati).Value < Range("H" & gyou).Value Then
            retu = "H"
            kati = gyou
        End If
    Next gyou
    
'    Range("K" & Migi).Value = Range("B" & kati).Value '←不要かも
'    Range("L" & Migi).Value = Range(retu & "5").Value '←不要かも
'    Range("M" & Migi).Value = Range(retu & kati).Value '←不要かも
    
    '処理2
    For gyou = 6 To 33
        If Range(retu & kati).Value = Range("C" & gyou).Value Then
            Range("K" & Migi).Value = Range("B" & gyou).Value
            Range("L" & Migi).Value = Range("C" & "5").Value
            Range("M" & Migi).Value = Range("C" & gyou).Value
            Migi = Migi + 1
        End If
    Next gyou

    For gyou = 6 To 33
        If Range(retu & kati).Value = Range("D" & gyou).Value Then
            Range("K" & Migi).Value = Range("B" & gyou).Value
            Range("L" & Migi).Value = Range("D" & "5").Value
            Range("M" & Migi).Value = Range("D" & gyou).Value
            Migi = Migi + 1
        End If
    Next gyou

    For gyou = 6 To 33
        If Range(retu & kati).Value = Range("E" & gyou).Value Then
            Range("K" & Migi).Value = Range("B" & gyou).Value
            Range("L" & Migi).Value = Range("E" & "5").Value
            Range("M" & Migi).Value = Range("E" & gyou).Value
            Migi = Migi + 1
        End If
    Next gyou

    For gyou = 6 To 33
        If Range(retu & kati).Value = Range("F" & gyou).Value Then
            Range("K" & Migi).Value = Range("B" & gyou).Value
            Range("L" & Migi).Value = Range("F" & "5").Value
            Range("M" & Migi).Value = Range("F" & gyou).Value
            Migi = Migi + 1
        End If
    Next gyou

    For gyou = 6 To 33
        If Range(retu & kati).Value = Range("G" & gyou).Value Then
            Range("K" & Migi).Value = Range("B" & gyou).Value
            Range("L" & Migi).Value = Range("G" & "5").Value
            Range("M" & Migi).Value = Range("G" & gyou).Value
            Migi = Migi + 1
        End If
    Next gyou

    For gyou = 6 To 33
        If Range(retu & kati).Value = Range("H" & gyou).Value Then
            Range("K" & Migi).Value = Range("B" & gyou).Value
            Range("L" & Migi).Value = Range("H" & "5").Value
            Range("M" & Migi).Value = Range("H" & gyou).Value
            Migi = Migi + 1
        End If
    Next gyou
End Sub

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

[7599]この動画講座サイト「Padstudy」の使い方

2017-02-03 19:51:51 松下 哲也さんからの投稿です。

どこでも繰り返し見れるとこに惹かれてこの道場にきました。
分かりやすそうですし、この先が楽しみです。

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

[7590]エクセルマクロの全体像

2017-02-01 21:47:55 ゲストさんからの投稿です。

今の仕事を効率化をするには必要だと思い、たどり着いたのがこちらでした。導入のムービーではマクロを使うとどういうことができるのか具体的な例があり、分かりやすかったです。使いこなせるといいことづくしですね。がんばって早く身につけたいです。

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

[7585]発展編1 フォローメールセミナー 第30回

2017-02-01 00:54:50 受講生さんからの投稿です。


こんにちは小川先生。
今迄講座を受け得た知識で過去に作ったマクロがあります。
今回、WorksheetFunctionを勉強させてもらったので、変更してWorksheetFunction.VLookupを取り込んでみようとしました。
しかしマクロを実行すると、VLookupで参照するシートには内容変更が起こらないようにシートの保護をしてあります。
シート保護をしてある状態でもWorksheetFunctionで保護の解除を求められない方法はありますか?
下記のようなマクロでシートの保護はWorksheets("shaban")にかかっています。

Sub VL()
    Dim c As Integer
    Dim e As Integer
    Dim s1 As Worksheet
    Dim i As String
    
    e = Range("C65536").End(xlUp).Row
    Set s1 = Worksheets("aaa")

' シートを保護していると使えない?
' シート保護を解除するマクロが必要?
    
    For c = 6 To e
        
'        Worksheets("shaban").Unprotect ←このようにしてみたが結局パスワードを求められる…
        
        i = s1.Range("C" & c).Value
        s1.Range("D" & c).Value = Application.WorksheetFunction.VLookup(i, Worksheets("shaban").Range("A2").CurrentRegion, 2, False)

'         Worksheets("shaban").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True ←よくわからない
   
    Next
End Sub


ご教授お願い致します。
また、発展編1を受講中ですがもう一度復習したのち次のステップに進もうと思ってます。
時間を作りながら勉強している状態でペースは遅いのですが次はどの講義を受講するのが良い手段ですか?
よろしくお願いします。

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

[7583]エクセルマクロ・VBAを利用するための推奨設定 - VisualBasicEditorの初期設定

2017-01-31 16:58:21 柴田 邦彦さんからの投稿です。

Visual Basic Editorの[ツール]→[オプション]の設定は、一度実施すれば、全てのブックに有効ですか?それとも、別のセクセルブックを開いた時は、また、再設定しないとけませんか?

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

[7579]エクセルマクロの全体像

2017-01-30 14:19:38 ゲストさんからの投稿です。

エクセルに記入しております企業名を特定のサイトで自動検索して指示する情報を自動入力することは可能ですか?

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

[7578]とびとびに存在するデータを拾って加工する

2017-01-30 13:04:53 新見陽子さんからの投稿です。

はじめまして。2017年12月からこちらでマクロを勉強し始めました。
フォローアップでは、まず自分でマクロを作ってみてから答えや動画を見ています。
今回、自分で書いたマクロでは数列は使ってなかった(2015年2月5日の匿名さんと、そっくりのマクロでした)のですが、
動画では数列を使っていました。この式で数値がこう変わる、って結果はわかるのですが、自分でこの式を導き出す術がわかりません。
中学レベルの数列すら全く理解していないので、別サイトで数列の勉強からし直そうとしてみたのですが、
等差数列とかますます理解できなくなり絶望的になっています。
こんなことでは便利なマクロが作れるようにはなれそうにもない、と意気消沈。
やっぱり数列を理解できないと、先々発展できないでしょうか?

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

[7576]エクセル2010以降で「保護されたビュー」のツールバーを表示しない方法

2017-01-29 01:48:50 受講生さんからの投稿です。

解説がとても丁寧でわかりやすいですね。

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

[7574]エクセルマクロの全体像

2017-01-28 17:21:09 ゲストさんからの投稿です。

マクロは聞いたことあったけど、難しいイメージがありました。とても分かりやすい内容でした、続けていきたいと思います。

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


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

 

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

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

トップへ