エクセルマクロオンライン講座 質問と回答

  • このエントリーをはてなブックマークに追加

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

[7402] 基礎講座第3章9 - 住所情報を分割する(実習)

受講生さんからの投稿です。

実践してみるとまだちょっと止まってしまったりしますが、面白くなってきました!!

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

[7395] 基礎講座第3章4 - Len関数、Instr関数

受講生さんからの投稿です。

理解できました。

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

[7394] 基礎講座第3章3 - Left関数、Mid関数、Right関数

受講生さんからの投稿です。

関数を理解できていたのでとても理解しやすかったです。

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

[7391] 基礎講座第3章2 - マクロを書く人のためのショートカットキー操作

受講生さんからの投稿です。

ショートカットを使用するクセをつけられると時間短縮にもつながるなと実感しました。

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

[7383]

shinさんからの投稿です。

>初めまして。shinと申します。
>無料講座を受けさせていただいて、感動し、本講座を申し込もうと思っておりますが、講座料の領収書はいただけますか?

HPのQ&Aに「可能」と書かれていました。同じ質問をしてしまい申し訳ありません。
領収書の申請をすれば郵送などで送って下さるということですか?

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

[7377] 基礎講座第2章7 - 日付の扱い

受講生さんからの投稿です。

日付しか入れてなくても時間は表示されるということでしょうか?

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

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

受講生さんからの投稿です。

少なくとも私はここまで丁寧に解説いただかなくても画面を読めば理解できました。

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

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

ゲストさんからの投稿です。

エクセルの機能のごく一部しか使えていなかったということを思い知らされました。3日要していた作業が3分だなんて、とても衝撃的です。人生変わってくるくらいのインパクト。
是非とも、学びたい。ワクワクしますね。

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

[7356]

澤田 亨さんからの投稿です。

発展フォローアップフォローアップセミナー第9回宿題やってみました。
よろしくお願いします。

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

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

平吹 敦史さんからの投稿です。

お世話になります。
Formulaプロパティは、最初違いがよくわかりませんでしたが、簡単なテストをして、よくわかりました。今までは、数式はExcelで事前につくっておいて、それ以外をvbaで処理していました。
数式そのものもvbaで処理できることがわかり、幅が広がりそうです。

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

[7354]

多和田 真也さんからの投稿です。

すみません、第9回となっていますが、メールセミナーの第11回の誤りです。

>第9回の宿題、再提出させていただきます。
>
>今回の宿題で、印刷設定や、印刷した際のページの見え方など、今までマクロでは解決しようとしていなかった
>
>部分まで意識することができました。

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

[7350] エクセルマクロ・VBAを利用するための推奨設定 - Excel2010、Excel2013、Excel2016の場合

渡辺 孝明さんからの投稿です。

説明は今のところ ついていけた。

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

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

渡辺 孝明さんからの投稿です。

なかなかむつかしそうですね。おぼえられるかな。不安と期待でいっぱいです。

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

[7344] 基礎講座第1章12 - ドリル

受講生さんからの投稿です。

セルの英字は、小文字で入力しても問題ないのでしょうか。

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

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

ゲストさんからの投稿です。

これからExcelマクロ・VBAを学ぶのが楽しみになりました。

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

[7340] エクセルマクロ・VBAを利用するための推奨設定 - Excel2010、Excel2013、Excel2016の場合

ゲストさんからの投稿です。

マクロを習い始める前に、推奨設定を教えてくれるので、後で躓くことを防げるのが非常にうれしいです。
これからも引き続き学習に取り組んでいきます。

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

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

ゲストさんからの投稿です。

分かりやすく層別してある資料があり、理解しやすいです。

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

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

受講生さんからの投稿です。

先週一通りの動画を見ました。
中でも、実習の中身が面白くとても興味とやる気が沸いています。
もう一度、頂いた動画を見、習い、実践学習に入って行きたいと考えています。

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

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

アルディさんからの投稿です。

これからマクロを活用して仕事の幅を広げたいと思っています。
なにとぞよろしくお願いいたします。

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

[7327] 動画下の学習状況を「完了!」にすると、【学習済み】と表示され、文字がグレーになります。

アルディさんからの投稿です。

完了にチェックをつけた際に、ページが自動でリロードされ、動画再生が始まってしまうのが、気になりますね。
完了にチェックを付けた場合は、コンテンツ一覧ページへ飛ばされた方がいい気がします。

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

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

ゲストさんからの投稿です。

こびとちゃんがいるという考え方、非常に分かりやすく頭に入ってきました。
これからマクロを学び使えるようになるのが楽しみです。

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

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

受講生さんからの投稿です。

小川先生
お世話になっております。
10月末から勉強させていただいております。
複数シート間で処理をするときのプログラムの書き方がまだしっかりと身についていません。
また変数名を何にするか決めるのに時間がかかり決めた変数名に自信が持てません。
引き続き身につくよう勉強していきます。
読みにくいコードとなり申し訳ありませんがご確認お願いいたします。

Sub denpyoMake()
'mainシートの取引先名称ごとにシートを分ける

Dim shFm As Worksheet
Dim shTo As Worksheet
Dim sortMaeNum As Long
Dim sortMaeNumMx
Dim lnfm As Long
Dim lnfmMx As Long
Dim lnTo As Long
Dim dt As Date

Set shFm = Worksheets("main")

'main、main1以外のシートを削除
deleteSheet

sortMaeNumMx = Range("B" & Rows.Count).End(xlUp).Row
For sortMaeNum = 2 To sortMaeNumMx
shFm.Range("A" & sortMaeNum).Value = sortMaeNum - 1
Next sortMaeNum

'mainシートでソートする
sortTorihiki

lnfmMx = Range("B" & Rows.Count).End(xlUp).Row
For lnfm = 2 To lnfmMx
If shFm.Range("B" & lnfm).Value <> shFm.Range("B" & lnfm - 1).Value Then
If lnfm <> 2 Then
'罫線を引く
keisenDraw (lnTo)

'印刷範囲を設定する
printSetting (lnTo)
End If

Worksheets("main1").Copy after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = shFm.Range("B" & lnfm).Value
Set shTo = ActiveSheet
shTo.Range("F2").Value = shTo.Name
lnTo = 16
Else
lnTo = lnTo + 1
End If
dt = shFm.Range("C" & lnfm).Value
shTo.Range("B" & lnTo).Value = Right(Year(dt), 2)
shTo.Range("C" & lnTo).Value = Month(dt)
shTo.Range("D" & lnTo).Value = Day(dt)
shTo.Range("E" & lnTo).Value = shFm.Range("D" & lnfm).Value
shTo.Range("F" & lnTo).Value = shFm.Range("E" & lnfm).Value
shTo.Range("H" & lnTo).Value = shFm.Range("F" & lnfm).Value
If shFm.Range("G" & lnfm).Value > 0 Then
shTo.Range("I" & lnTo).Value = shFm.Range("G" & lnfm).Value
Else
shTo.Range("J" & lnTo).Value = shFm.Range("G" & lnfm).Value
End If
shTo.Range("K" & lnTo).Value = shTo.Range("K" & lnTo - 1).Value + shFm.Range("G" & lnfm).Value

Next lnfm

'mainシートを元の順番でソートする
sortMotojun

shFm.Activate
shFm.Range("A1").Select

End Sub

Private Sub sortTorihiki()
'取引先名称で並び替える

Columns("A:G").Select
With Worksheets("main").Sort
.SortFields.Clear
.SortFields.Add Key:=Range("B:B"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.SortFields.Add Key:=Range("C:C"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.SortFields.Add Key:=Range("D:D"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.SortFields.Add Key:=Range("E:E"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.SortFields.Add Key:=Range("F:F"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

.SetRange Range("A:G")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Worksheets("main").Range("A1").Value = "No"
End Sub

Private Sub sortMotojun()
'元の並び順に並び替える

Columns("A:G").Select
With Worksheets("main").Sort
.SortFields.Clear
.SortFields.Add Key:=Range("A:A"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

.SetRange Range("A:G")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A:A").ClearContents
End Sub

Private Sub deleteSheet()
' main、main1以外のシートを削除する

Application.DisplayAlerts = False
Dim sh As Worksheet
For Each sh In Worksheets
If Left(sh.Name, 4) <> "main" Then
sh.Delete
End If
Next
Application.DisplayAlerts = True
End Sub

Private Sub keisenDraw(mxGyo As Long)
'追加シートに罫線を引く

With Range("B16:K" & mxGyo)
.Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
With .Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With .Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With .Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With .Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With .Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With .Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
End With
End Sub

Private Sub printSetting(maxGyo As Long)
'印刷範囲を変更する。またヘッダ・フッタを入れる。

Range("A1:L" & maxGyo).Select
ActiveSheet.PageSetup.PrintArea = "A1:L" & maxGyo + 1
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = "&D"
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = "&A"
.LeftMargin = Application.InchesToPoints(0.78740157480315)
.RightMargin = Application.InchesToPoints(0.78740157480315)
.TopMargin = Application.InchesToPoints(0.984251968503937)
.BottomMargin = Application.InchesToPoints(0.984251968503937)
.HeaderMargin = Application.InchesToPoints(0.511811023622047)
.FooterMargin = Application.InchesToPoints(0.511811023622047)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.CenterHorizontally = True
.CenterVertically = False
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 10
.FitToPagesTall = 10
.PrintErrors = xlPrintErrorsDisplayed
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.ScaleWithDocHeaderFooter = True
.AlignMarginsHeaderFooter = False
.EvenPage.LeftHeader.Text = ""
.EvenPage.CenterHeader.Text = ""
.EvenPage.RightHeader.Text = ""
.EvenPage.LeftFooter.Text = ""
.EvenPage.CenterFooter.Text = ""
.EvenPage.RightFooter.Text = ""
.FirstPage.LeftHeader.Text = ""
.FirstPage.CenterHeader.Text = ""
.FirstPage.RightHeader.Text = ""
.FirstPage.LeftFooter.Text = ""
.FirstPage.CenterFooter.Text = ""
.FirstPage.RightFooter.Text = ""
End With
Application.PrintCommunication = True
End Sub

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

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

riekoishidaさんからの投稿です。

早くkobitoに指令を伝えられるようになりたいです。

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

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

受講生さんからの投稿です。

今まで使っていたエクセルにこんな機能が標準装備されていたなんて!何ともったいないことをしつづけていたのか・・・涙
これから、こんな魔法を身につけられるのかと思うとワクワクします。これからもよろしくお願いします。

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

[7310] イベントとフォーム講座演習第2回

tomoki1105さんからの投稿です。

こんにちは。

Control ToolのOptionButtonについて質問です。

OptionButtonをフォームに張り付けると、張り付けたOptionButtonの内一つしか選択できませんが、選択するカテゴリーを複数設定したい場合は設定可能なのでしょうか。
例えば性別に加え、会員もしくは非会員等のOptionのグループを加えたい場合の方法を教えて頂きたく。

宜しくお願い致します。

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

[7309] エクセルマクロ・VBAを利用するための推奨設定 - Excel2010、Excel2013、Excel2016の場合

ながのさんからの投稿です。

はじめまして。
先週から学び始めたKAZといいます。よろしくお願いいたします。
今回質問があり、コメントさせてもらいました。

マクロの設定の場面で、私のエクセル(2013)では、
・全てのマクロを有効にする(推奨しません・・・)にチェックが入っており
・警告を表示して全てのマクロを無効にする を選ぶことができません。

これは、管理者が設定しているものなのでしょうか?
こちらで修正することができるのでしょうか?

マクロの設定に問題がなければいいのですが、少し気になって聞かせてもらいました。
教えてください。よろしくお願い致します。

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

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

ゲストさんからの投稿です。

さすが、達人。
説明もわかりやすいです!

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

[7299] 基礎講座第2章12 - ドリル5

大川真二さんからの投稿です。

練習問題6の間違いに気がつきました。構文の読み方に間違いはなかったのだなぁと改めて確認できました(*´꒳`*)

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

[7291] 基礎講座第2章11 - ドリル4

大川真二さんからの投稿です。

8を2日がかりで通過出来ました。何度も間違えながらも動画で確認をして声を出しながら進めて行くことで無事解決する
構文の読み方は自分が解りやすいように言い換えたりした方が楽ですね〜

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

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

高橋健太郎さんからの投稿です。

本当に初歩的なエクセルしか知らなかった。
マクロを習得することで、今まで貼り付けたテーターの仕分けや分析が楽しくなりそうです。

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


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

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

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

トップへ