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

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

[10009]エクセルマクロVBA「Web連携」Microsoft Internet Controls_Webコンテンツの取得

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

(追記)
ちなみに、IDとパスワードを入力する部分にはIDがついていたのでgetElementByIdでの操作は成功済です。
ログインボタンだけがIDの記載がなかったので詰まってしまいました。

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

[10008]エクセルマクロVBA「Web連携」Microsoft Internet Controls_Webコンテンツの取得

2018-05-20 22:18:58 受講生さんからの投稿です。

IEで、IDとパスワードを入力してログインボタンを押す、
という操作をしたいのですが、
ログインボタンにはIDがついておらず、
getElementByIdでの操作ができそうにありません。
また、elementsでもないようで、エラーになってしまいました。

ソースは次のようなものでした。
<dd class=”nav-login-btn”><a href=”javascript:void(0);” onclick=”javascript:func_request_Link(‘LOGIN’); return false;”>ログイン</a></dd>


ネットで調べたところ、以下のようなコードが見つかり、
これでやったら無事にログインボタンが押されました。
この場合は、このような方法しかないでしょうか。

Dim ie As Object
Dim tag As Object
Set ie = CreateObject(“InternetExplorer.Application”)
ie.Visible = True
ie.navigate “http://目的のURL"
Do While ie.Busy Or (ie.ReadyState <> 4): DoEvents: Loop
For Each tag In ie.document.getElementsByTagName(“a”)
If tag.InnerText = “ログイン” Then
tag.Click
Exit For
End If
Next

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

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

2018-05-20 15:54:54 受講生さんからの投稿です。

モジュールレベル変数の有効性について教えて下さい。
第29回のModule23において、
Dim b As Boolean
のモジュールレベル変数は、IsHoliday23でTrueかFalseになったあと
別のSubプロシージャであるExeCreateCalendar23へ戻ってきても
TrueかFalseが保持さていました。
私は今まで、同じモジュール内であっても別のSubプロシージャになると変数はリセットされると解釈してましたが、これは間違いだったのでしょうか?
これは、オブジェクト型変数にも有効でしょうか?
モジュールレベル変数でオブジェクト型変数を設定しておいて、
最初のSubプロシージャでSet~でオブジェクトを指定しておけば
以降、同じモジュール内のSubプロシージャであれば、ずっと有効なのでしょうか?

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

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

2018-05-20 15:16:59 受講生さんからの投稿です。

第29回のwebページからDLするExcelファイルには、「control」シートがありませんが(summaryシートのみ)、これは何かの手違いでしょうか?

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

[10004]条件に一致するデータを別表に転記する。AutoFilterより便利な条件抽出マクロ。

2018-05-18 21:50:54 ゲストさんからの投稿です。

マクロを学んでみようと思ったきっかけの一つがこれでした。
元データを一つ一つ検索ソフトに打ち込んで、半日くらいかけて行うこともしばしばあって何とかならないかと思い始めて数か月になります。

先日、職場でプログラムを書き上げて一気に終わった仕事を見て、あまりの気分の良さに定時でさっさと帰ってきました♪

毎日の業務なので、検索値の最終行を自動で判断してくれるようなマクロを書けるようになると、さらに楽になるのに。。。と淡い期待を抱いています。

一週間先の自分が楽しみな毎日です。

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

[10003]商品ごと、年ごとの販売額合計をピボットテーブルのように出力する(その2-1)

2018-05-17 22:40:04 伊藤博文さんからの投稿です。

お世話になっております。
右の表を年と商品を書くマクロを一気にすることができないかなと思ってトライしてみましたが、うまくいかなかったです。
Sub rensyu1()
Range(“B1”).Select
ActiveWorkbook.Worksheets(“Sheet1”).Sort.SortFields.Clear
ActiveWorkbook.Worksheets(“Sheet1”).Sort.SortFields.Add Key:=Range(“B1”), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets(“Sheet1”).Sort
.SetRange Range(“A2:F231”)
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range(“E1”).Select
ActiveWorkbook.Worksheets(“Sheet1”).Sort.SortFields.Clear
ActiveWorkbook.Worksheets(“Sheet1”).Sort.SortFields.Add Key:=Range(“E1”), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets(“Sheet1”).Sort
.SetRange Range(“A2:F231”)
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With


Dim tate
Dim hida
Dim yoko
Dim syohin
Dim toshi
 ここでタテ、ヨコの変数を0としても、
 上手くいかなかったです。
For hida = 2 To 231
If Range(“E” & hida).Value <> syohin Then
Range(“H3”).Offset(tate, 0).Value = Range(“E” & hida).Value
syohin = Range(“E” & hida).Value
tate = tate + 1

ElseIf Range(“B” & hida).Value <> toshi Then
Range(“I2”).Offset(0, yoko).Value = Range(“B” & hida).Value & “年”
toshi = Range(“B” & hida).Value
yoko = yoko + 1
End If

Next
NarabeID
End Sub
ご指導宜しくお願いします。

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

[10002]エクセルマクロVBA「Web連携」HTMLコンテンツの取得と解析_概要

2018-05-17 20:58:09 受講生さんからの投稿です。

本講座をマスターしたいド初心者です。

前編までは理解いたしましたが、本編は何が何だか全く理解できませんでした。

何のためにHTMLコンテンツを取得し、解析するのか。

そもそも、HLMLコンテンツ、ライブラリーとは一体何のことなのか。

この辺りですら全く分かりません。クグっても分からないです・・・。

ご教示のほどお願いします。

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

[10001]エクセルマクロVBA「Web連携」Cookieを使ったリクエスト

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

ヘッダーの表示・確認方法について質問します。

レスポンスボディーについては、【ページのソースを表示(Ctrl+U)】にて確認ができました。

一方、講義で出てきたヘッダー(例えば以下)ですが、どのようにしたら表示・確認をすることができますか?

>>[リクエストはこんな感じ↓]

GET /ws/cookiesample.php HTTP/1.1
Accept: text/html, application/xhtml+xml, */*
Accept-Language: ja-JP
User-Agent: Mozilla/5.0 (compatible; MSIE 9.0; Windows NT 6.1; Win64; x64; Trident/5.0; MALC)
UA-CPU: AMD64
Accept-Encoding: gzip, deflate
Host: [ 続きを読む ]  返信件数:1件  [ 動画を見る] 


[9981]補講:複数ファイル間でのデータ転記

2018-05-16 02:15:13 morimotoさんからの投稿です。

a & gyoの記載とinstr関数の使う場面、ifの条件不成立のときは何もしない、、、、ほんと役立だってます。フォローアップ終わらせて発展へ
早くいきたいですね。

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

[9980]補講:複数ファイル間でのデータ転記

2018-05-16 02:12:02 morimotoさんからの投稿です。

やっと基礎編が終わって、ほんと不思議なもので、カレーライスの話ではありませんが、以前にはなかった「こうやったら行けるかも!?」といった勘が少しながら出た感じです。したいことをネットで調べても有効に役立てできるようなところも見えるようになった感じです。驚くべきスキルアップ感です。変なvbaスクールなんか行くんでなかったと後悔してます。

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

[9979]出現回数を数える。CountIf関数がやっていることをマクロで書くと?

2018-05-16 02:05:06 morimotoさんからの投稿です。

ふれあい広場の例えはほんとわかりやすい。初期値goukei=0と
goukei=goukei+1 どこにコードを書くかゆっくり考えればできそうです。
だめならどこかに入れてf9で1つ1つどうなるか検証ですね。

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

[9978]条件に一致するデータを別表に転記する。AutoFilterより便利な条件抽出マクロ。

2018-05-16 02:02:47 morimotoさんからの投稿です。

きたないコードになりましたができてやり応えありました。ヒントがあったので助かりました。動画4にあったgoukei=goukei+1 の記憶が行かせました。しばしばたとえばcnt=cnt+1といったコードを見かけますが
何か数えるときはこの式がでるように記憶します。

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

[9976]発展1講座第3章 – マクロの自動記録 オートフィルタ2

2018-05-15 05:46:21 横山 知明さんからの投稿です。

動画30の「指示語を極力使わない。」ことは、自分が、他の人に仕事をお願いするときにも役に立つ話ですね。

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

[9975]文字列を加工してデータ転記する(その2)

2018-05-14 23:40:39 ゲストさんからの投稿です。

小川 様

質問に対するご指導、
ありがとうございました。

[a] Dim … , Dim … という変数宣言を、
Subプロシージャ先頭のほうで固めた方が良さそうな気がするけど、
変数が登場する順序と、それらの変数を使う順序は
一致していた方が良いのかな?

と思っていましたが、正確に表現できていませんでした。

宣言してから、値を格納するという点、
動画を復習します。

今後ともよろしくお願い致します。

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

[9974]テキストファイルの操作について

2018-05-14 21:48:25 受講生さんからの投稿です。

AtEndOfLine と streamについて、
動画内での説明と字幕での説明が違いますが
結局はどちらなのでしょうか。
混乱するので動画の再編集をしていただければ
有り難いかなと思いますが。

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

[9966]ファイルの操作・フォルダの操作説明

2018-05-14 00:55:23 あじろうさんからの投稿です。

いつもお世話になっております。
処理時間について教えてもらいたいことがあります。
今迄、日ごとに分けたファイルから情報をあつめて集計しようと考えてます。
FileSystemObjectのサンプルコードを参考にして書いてみたコードがあります。
“siken”ファイルに”1.xlsm”,”3.xlsm””4.xlsm”3個が存在していて有無を確認した後、あったらSheet1の”A1”の値を “syuukei”シートに書き出す処理をしてみました。
僅か3個の処理で2~3秒かかってます。コードの描き方がいけないのでしょうか?それともこのくらいはかかるものでしょうか?うまく説明できずすいません。よろしくお願いします。

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

[9965]出現回数を数える。CountIf関数がやっていることをマクロで書くと?

2018-05-13 17:07:05 ゲストさんからの投稿です。

変数が複数出てくると途中で混乱してしまい、なかなかついていくのが難しいですが、ひとつづつ説明いただいているので構造的には理解できそうです!落ち着いて、構造を把握してひとつずつ検証するのと、トライアンドエラーの繰り返しが必要そうです

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

[9963]さいごに-まとめ、演習のご案内と、今後の学習について

2018-05-13 10:51:18 T.S.さんからの投稿です。

☆演習 – 種々のリライト –
の作成が完了しました。よろしくお願いいたします。

カレンダー生成から自動化を対応しました。
(ガントチャート作成講座本編に投稿したプログラムをもとに
ブラッシュアップをしました。)

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

[9957]文字列を加工してデータ転記する(その2)

2018-05-13 00:14:14 ゲストさんからの投稿です。

‘dim で変数を宣言する記述と、
実際に変数を記述した式の順番、
これについて教えて頂けますでしょうか。

変数を、「必要だ」と自分が気付いた順番で記載すると、
‘dim jusho
‘jusho=range(“C2”).value
‘dim ku
‘ku = instr(range(“C2″).value,”区”)
‘dim gyo
‘for gyo = 2 to 11

の順番になりました。

その後、’jusho=range(“C2”).value の(“C2”)の箇所を
‘”(C & gyo)”に変更すると、
添付のようなエラーが出てしまいました。

これはおそらく、
「gyoという変数を宣言する前の行の記述にさかのぼって
“C2″の箇所にgyoを当てはめて使ってはダメだよ」
という意味だと思うのですが、

変数を宣言する(dim)記述と、
変数を定義する記述は、どの順番で書くのが正しいのでしょうか。

2つ以上の変数が必要になった場合、
必要だと判明した順番で書くと、
上から順に、’dim ばかりにはならず、きれいに揃いません。
それを整理しようとした時に、
どういう順番で整理するのが正しいのかをご指導願います。

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

[9956]多次元配列のサイズを調べる

2018-05-12 21:06:16 こんちゃんさんからの投稿です。

動画を見ていったら解決しました笑
わかりやすかったです!

連投失礼しました。

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

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

2018-05-12 15:47:55 受講生さんからの投稿です。

私はレベルでは、今まで
Range(“A” & Gyo) = …
Range(“B” & Gyo) = …
といったように、自分が今どのセルに対して指示をしているかがダイレクトでかつ一目瞭然で分かるように、作ってきました。
しかし、第24回、第25回のseminarのように、
Offsetプロパティや、Wihr~End Withを使うと、ホント抽象的なってしまって、可読性となると、これはかなり慣れないとかなり困難を極める印象をうけました。
自分にとっては、ハードルは高く感じますが、今後は、Offsetプロパティや、Wihr~End Withを使うことを極力意識していきたいと思います。

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

[9944]多次元配列のサイズを調べる

2018-05-09 13:22:27 こんちゃんさんからの投稿です。

こんにちは

こちらの動画では2列のデータを二次元に格納しておりますが、3列目、四列目を配列に格納したい場合は次元を増やすのでしょうか。

実務で3列目、四列目の値を格納したいシーンがあります。
自分でちょろちょろやってみましたがどうにもうまくいきません。
二次元配列でも3列目、四列目のデータを格納できるでしょうか。

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

[9940]発展1講座第1章 – バリアント型

2018-05-09 05:51:40 横山 知明さんからの投稿です。

学習再開しました。体系的で、とても理解しやすいです。

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

[9934]基礎講座第4章2 – ハナコのステップ

2018-05-08 13:10:25 マメコトさんからの投稿です。

「お団子」さえ準備できれば、後は作業なんですね。
最初に箱を作っておけば、どんなに長いコードであっても『For に対するNextがありません』ってエラーも出ませんしね。
わかりやすいです。

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

[9933]モジュールレベル変数との使い分け

2018-05-07 18:46:45 受講生さんからの投稿です。

小川先生
今回は、コース末の課題の先生の見本回答(下に添付)でのredimの使いかたの質問です。これは、テキストで習った書き方と違います。記述の量もそこそこありますが、この書き方のメリットは、(テキストの方式対比で)どういうところなのでしょうか?両方の方式を学んで置くべきなのでしょうか?
ReDim var(2, 0)
For c = 2 To Range(“F65536”).End(xlUp).Row
var(0, UBound(var, 2)) = Range(“E” & c).Value
var(1, UBound(var, 2)) = Range(“F” & c).Value
var(2, UBound(var, 2)) = Range(“G” & c).Value
ReDim Preserve var(2, UBound(var, 2) + 1)

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

[9931]出現回数を数える。CountIf関数がやっていることをマクロで書くと?

2018-05-06 21:38:56 ゲストさんからの投稿です。

お世話になります。

講義は有難いのに、私が吸収できません。
申し訳ございません。

講義動画、4分26秒の箇所で質問です。

C4から18までの「しそ巻き無料」の回数を数えたかったので
添付ファイルのような式を書きました。

すると、
エクセルシート名:キャンペーン名簿1のセルF4に
「1」という答えが出て、間違えました。

小川先生の回答は、

‘ If Range(“C4”).Value = “しそ巻き無料” Then の後が、
‘goukei = goukei + 1

になっています。

私が書いた式だと、
どういう意味になってしまうのでしょうか??

もしかして、
goukei = goukei + 1 の部分で、
「しそ巻き無料」の回数を累計させているのでしょうか??

ご指導、お願い致します。

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

[9919]簡単なマクロを書いてみる – サブプロシージャのネーミングルール

2018-05-06 14:01:27 のんのんさんからの投稿です。

昨日から動画を拝見しています。
すごく分かりやすいです!
これを見て行けば、プログラムが書けるようになるのかと思うと楽しみです。
ありがとうございます!

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

[9916]基礎講座第2章12 – ドリル5

2018-05-05 15:53:51 こっしー☆さんからの投稿です。

動画を見る前に、自力で修正して確認してみました。
その後に解答・解説として動画を視聴し、2ヶ所動画と違う修正の仕方でマクロが動きました。
・Sub KoubunDrill04()
  Range(“D” & “4).Value = 4
ですが、自分は4の前にある「”」を消して
Range(“D” & 4).Value = 4 としました。
同じく
・Sub KoubunDrill05()
  Range(“D” “& 5).Value = 5
の&の前の「”」を消して
Range(“D” & 5).Value = 5としました。
マクロは動きましたが、今後色々とマクロを覚えるにあたって今回の動画のように数字の前後に「”」をつける癖をつけた方が良いでしょうか?
動画と違う修正でマクロが動きましたが、余計な「”」を消去したという説明しかできないので、アドバイスお願い致します。

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

[9901]さいごに-まとめ、演習のご案内と、今後の学習について

2018-05-03 23:15:36 Y.O.さんからの投稿です。

ガントチャート作成演習の解答を送付します。
・ガントチャート全体   →Module1_All
・部署別(同一ファイル内) →Module2_busho_ws
・部署別(別ファイル)   →Module3_busho_wb
・テンプレートの作成   →Module4_CreateTemplate
を作成しました。
追加機能として、
・コメントのサイズを自動調整しました。
・最小値の日付の前月まで、最大値の日付の翌月以降を非表示にしました。
・カレンダー生成から自動化しました。

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

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

2018-05-03 16:00:43 受講生さんからの投稿です。

当方はネットブラウザをGoogle Chromeをメインで使っておりますが、添付ファイルのように表示に不具合があります。
至急、修正をお願いいたします。
なお、Edgeでは正しく表示されております。

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


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

 

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

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

トップへ