トップページ⇒tech
1001コメント417KB

Excel VBA 質問スレ Part33

■ このスレッドは過去ログ倉庫に格納されています
0001デフォルトの名無しさん2013/10/17(木) 22:04:40.64
ExcelのVBAに関する質問スレです

　　　　　　　　　　　　　　　　　　 ＿＿＿
　　　　　　　＿＿＿　　　　　 ／＿＿＿_ヽ　　　　 　＿＿__
　　　　　　/＿＿＿_＼　　　 |　|´・ω・｀|　| 　　　／＿＿＿ヽ
　　　　　 .ｌ |´・ω・｀|　 ニX二　.￣￣￣　 二X二　 |´・ω・｀| l　俺たちに任せろ
　　　　　　!､￣￣￣　　ヽ　　 |　　　　　　 | 　　 / 　 ￣￣￣/
　　　　　　　ヽ_/ヽ､　 ヽ__）　　＼__/＼_／.　　 /_／　　ノヽ_/
　　　　　　　　　　　 ￣　　　　　　　　　　　　　　 ￣￣

前スレ
Excel VBA 質問スレ Part32
http://toro.2ch.net/test/read.cgi/tech/1381151717/

このスレはコード書き込みOKです。
作成依頼もOKですが、作成依頼限定ではありません。

コードが嫌な人はこちらのスレへ
http://toro.2ch.net/test/read.cgi/tech/1381151995/l50
0445デフォルトの名無しさん2014/03/31(月) 15:01:50.77ID:Ial2Eqsw
>>444
いや、そういうことするより、まず何にどれだけ時間がかかってるか計測するのが先。
0446デフォルトの名無しさん2014/03/31(月) 16:48:16.50ID:3GCmwtHU
エクセルで256×256のセルに数字が入っている状態で
BMPの画像を作るにはどうしたらいいでしょうか？プログラミングの技術が
ないと不可能でしょうか？
0447デフォルトの名無しさん2014/03/31(月) 17:05:56.79ID:r3mdI7xZ
C言語でBMP作るのは、そういうのがあるってことは知ってる。それと同じことをvbaでやりたいってことなら
（それがvbaで出来るかどうかは知らんけど）当然
>プログラミングの技術がないと不可能
じゃないの？
0448デフォルトの名無しさん2014/03/31(月) 18:23:52.03ID:L50LbWDs
そうですよね・・・
自分には敷居が高そうなので諦めます。すみません
0449デフォルトの名無しさん2014/03/31(月) 18:28:43.68ID:8V+7Or/W
はい敷居きた
0450デフォルトの名無しさん2014/03/31(月) 18:31:32.29ID:Ial2Eqsw
>>448
「セルに数字」じゃなくて実際に色を付けて、セルの幅と高さを1:1に保って小さくして、枠線を消して
クリップボードにコピーして、BMPで書き出せば？
0451デフォルトの名無しさん2014/03/31(月) 20:37:19.25ID:S+MvAbw+
図としてコピー
あれVBAからつかえんの？
0452デフォルトの名無しさん2014/04/01(火) 01:26:03.72ID:5tQShRLT
三項演算子とか連想配列を最近知ったものですが
上記のような便利機能が他にも紹介されてるサイトってないですか
0453デフォルトの名無しさん2014/04/02(水) 00:30:48.39ID:+8s/Qgvh
If Not IsNumeric(data) Then

ElseIf (data > 0) Then

ElseIf (data < 0) Then

Else

End If

数値か文字として渡されるdataの判定を上記のようにしたんですけど、
冗長なのでSelect Caseにしたいです。どうしたら良いですか？
0454デフォルトの名無しさん2014/04/02(水) 00:53:09.51ID:9+cif8YO
>>453
Sgn
0455デフォルトの名無しさん2014/04/02(水) 01:25:50.89ID:+8s/Qgvh
>>454
おお、ありがとうございました！
0456デフォルトの名無しさん2014/04/05(土) 19:04:50.32ID:zCQPlUhY
ちょっとズレるけど
ここのセミナーってどうなの？
ステマとかじゃなく純粋に気になった
ttp://sugoikaizen.com/
0457デフォルトの名無しさん2014/04/05(土) 19:07:13.30ID:Crk62Mwa
>>456
すごくおすすめだよ
行っておいでｗ
0458デフォルトの名無しさん2014/04/05(土) 20:05:46.77ID:eYN2DOjD
VBAをVBE以外で書きたいんですけれども、誰かVBE以外のエディターで開発されてる方いますか？
いる方は、何をお使いになってますか？

VBEで以下の不満があり、関数のアウトライン機能がないこと、列挙体変数をTabで選択せずそのまま入力するとその入力された変数名に変更されてしまうなどがあり、困ってます
0459デフォルトの名無しさん2014/04/20(日) 20:06:57.56ID:FLwMWrjy
dir を使って、配列にいれたファイルをチェックするマクロを作りたいのですが、
「インデックスが有効範囲にありません」というエラーがでてしまって困っています。

Sub チェック()

Const Target As String = "C:\Users\user\Desktop\格納\"

Dim tmp() As String
tmp = Split("Scr14", "Scr16")

For i = 1 To 2
If Dir(Target & tmp(i) & ".txt") <> "" Then '←エラーの出る場所（tmp部分）
Else
MsgBox tmp(i) & vbCrLf & "が存在しません"

End If

Next
MsgBox "確認できました"

End Sub


Dirに配列を使ってチェックするのは無理なのでしょうか？ご教授願います。
0460デフォルトの名無しさん2014/04/20(日) 20:12:33.50ID:I6Nwishv
>>459
配列のアクセスに関するエラーだからDirは関係ないかな
Split("Scr14", "Scr16")は、Split("Scr14,Scr16", ",")の間違いだとして、
tmpは
tmp(0) = "Scr14"
tmp(1) = "Scr16"
こうなってる

なんで、ループは0 To 1にしなきゃいけない
0461デフォルトの名無しさん2014/04/20(日) 20:26:26.65ID:FLwMWrjy
>>460
回答ありがとうございます。

配列に関しても理解が足りてなかったようです。

単純に文字の配列を作りたいだけなので、

Dim tmp() As String = {"Scr14", "Scr16"}

のようにしたいのですが、 = のところで、コンパイルエラーが出てしまいます。（修正候補：ステートメントの最後）

どのように修正したら良いでしょうか。
0462デフォルトの名無しさん2014/04/20(日) 20:36:06.91ID:kzevG+UG
>>461
VBAではVBみたいな書き方はできない

Dim tmp
tmp = Array("Scr14", "Scr16")
0463デフォルトの名無しさん2014/04/20(日) 20:36:17.19ID:I6Nwishv
>>461
VBAでは変数は宣言時に初期化できないので、これで

Dim tmp(1) As String
tmp(0) = "Scr14"
tmp(1) = "Scr16"

Variantでよければ
Dim tmp
tmp = Array("Scr14", "Scr16")
0464alchemist ◆IOGp1zS1sA 2014/04/20(日) 20:41:04.41ID:FLwMWrjy
>>462
>>463

ありがとうございました。成功しました。
0465デフォルトの名無しさん2014/04/23(水) 11:33:23.29ID:/2+x+Vgo
Excel VBAでpowershellを実行し、その結果を取り込みたいと考えています。
powershellで実行したいのは以下のコードです。

$drive = Get-WmiObject -Class Win32_LogicalDisk | where-object {$_.deviceid -eq 'Y:'};$drive.providername

txtファイルに出力してから取り込めばうまくいくことは分かるのですが、できればtxtファイルを経由せず、直接取り込みたいです。
直接取り込む方法があれば、ご教示いただけないでしょうか。
0466デフォルトの名無しさん2014/04/23(水) 11:50:34.55ID:HGvdUff0
http://tech.guitarrapc.com/entry/2013/07/19/200702
のサイトで見ただけなんでそれが出来るのかどうかは知らないけど

結果をクリップボードに送り込めるなら、後はそのデータをapiを使うなりDataObjectオブジェクトを使うなりで
クリップボードから取り出せる
0467デフォルトの名無しさん2014/04/23(水) 12:31:02.08ID:ZM+hJQpr
>>465
ほい
PowerShellの出力をワートシートのA列に取り込むサンプル

' OpenProcess
Declare PtrSafe Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Const SYNCHRONIZE = &H100000
' WaitForSingleObject
Declare PtrSafe Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Const WAIT_OBJECT_0 = &H0
' CloseHandle
Declare PtrSafe Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

Sub sample2()
　　Dim hProcess As Long, lret As Long
　　　　
　　lret = Shell("powershell ""Get-WmiObject -Class Win32_LogicalDisk|Clip""", vbHide)
　　hProcess = OpenProcess(SYNCHRONIZE, 0, lret)
　　Do Until WaitForSingleObject(hProcess, 100) = WAIT_OBJECT_0
　　　　DoEvents
　　Loop
　　lret = CloseHandle(hProcess)
　　　　
　　Cells(1, 1).Select
　　ActiveSheet.Paste
End Sub
04684652014/04/23(水) 15:48:54.72ID:05nonx0d
>>466
>>467
返信ありがとうございます。

>>467
試したのですが、ネットワークドライブのリモート名に日本語が含まれている場合は?に化けてしまい、うまく回らない状況です。
(含まれていない場合はうまくいったのですが)
0469デフォルトの名無しさん2014/04/23(水) 18:28:55.92ID:ZM+hJQpr
>>468
Shell("powershell ""$OutputEncoding = [console]::OutputEncoding;ほげほげ
04704652014/04/25(金) 00:24:01.06ID:dAeKMCVg
>>469
返信ありがとうございます。


>>467
Declareのところだけ既に同名の宣言をしてあったのでそれを活かす形式にし(何故かPtrSafeがうまくいかなかった)、
$OutputEncoding =〜も使わせていただいたところ、
今のところ問題なく回っています。

皆さんご協力ありがとうございました。
助かりました。
0471デフォルトの名無しさん2014/04/25(金) 00:48:38.11ID:97MfQF5y
>>470
PtrSafeは64bit環境
0472デフォルトの名無しさん2014/04/25(金) 19:43:27.59ID:IKtZUAxC
お願いします
シート名「uriae」の
Ｆ２に入っている関数をＦ列の下へ向かってオートフィル
で関数をコピーしていくＶＢＡをお願いします。
関数のコピーは、同じシートのＡ列に文字が入力されているので
Ａ列の文字が入力されている最終行までコピーしたいと思います。
0473デフォルトの名無しさん2014/04/26(土) 01:31:25.36ID:w0bO41GV
>>472
ここは質問スレであって作ってくれる場所じゃないから
まずは自分でどうやろうとしたかを書いてみればいいと思うんだ
0474デフォルトの名無しさん2014/04/28(月) 01:08:06.58ID:Z51g+zsH
うりあえ？
0475デフォルトの名無しさん2014/05/05(月) 00:35:51.93ID:UkI77+Fd
すみません、初めてVBAを作っているのですが詰まってしまいました。

＜やりたいこと＞
・セルに商品NOを入力して、そのセルがロストフォーカスしたタイミングで、
入力された商品NOで別シートの商品表から、商品名をもってきたい。
＜困っていること＞
"Worksheet_Change"イベントを使用して、ロストフォーカスのイベントを
拾うことはできたが、ロストフォーカス前に選択されていたセルの内容を
拾えない。
（ActiveCell.Valueで取得しようとしたが、ロストフォーカス後に選択された
セルの内容を取得してしまう。）

もしよい方法があれば、ご教授いただけませんでしょうか。
0476デフォルトの名無しさん2014/05/05(月) 01:55:30.65ID:uFaF33P2
>>475
SelectionChangeイベントで、カーソルが動くたびにセルの座標をいちいち独自の履歴に溜めていく

だけど普通は商品NOが確定すると同時にChangeイベントで商品名をセットするもんだよ
ワンテンポ遅らせる理由がわからない
初心者ならなおさらセオリー通りにやった方がいい
さらに言えば、商品名をセットする程度の処理ならVBAを使うまでもなくVLOOKUPとかで可能だし
0477デフォルトの名無しさん2014/05/05(月) 04:35:04.82ID:UkI77+Fd
>>476
vlookupなんていう関数あったんですね・・・
これで解決できそうです！
ありがとうございました！
0478デフォルトの名無しさん2014/05/05(月) 18:42:40.78ID:AK1zskjW
Excel2013です。複数のページからクエリでデータを取得したいです。

Sheet1のA列から下へ取得したい先のURLが入力されていて、クエリでデータを取得し、新しいシートA1に貼り付けする。
Sheet1のA列のセルが空白になれば処理を終了する。

VBAでクエリを実行する事が出来る所までは出来たのですが、上記の様にしたいのですが知識が乏しく躓いています。

今、出来ているのは下記になります。

Sub クエリ抽出 ()

With ActiveSheet.QueryTables.Add(Connection:= _
"url;取得データがあるＵＲＬ", _
Destination:=Range("A1"))
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "1"
.Refresh BackgroundQuery:=False

End With

End Sub

宜しくお願いします。
0479デフォルトの名無しさん2014/05/11(日) 20:01:24.57ID:0QNYDm24
申し訳ない、このスレの趣旨とはズレてると思うんだけど、総合スレ的なものがどこにあるか分からないから聞かせてほしい。
参照元のないセルにデータ(数式ではない)を入力したときに循環参照のエラーが出てしまうんだけど、EXCEL 2010にはそういうバグがありますか？
参照先のセルを見てもさっぱり原因がわからなくて困ってます。
周辺のセルはオートフィルで埋めてるので数式は大差ないのに、ある一つのセルだけどうしてもエラーになってしまいます。
0480デフォルトの名無しさん2014/05/11(日) 20:34:18.27ID:9n+Ded1d
総合スレならビジネスsoftの方に

Excel総合相談所 113
http://toro.2ch.net/test/read.cgi/bsoft/1398901813/l50

ってのがあるけど
0481デフォルトの名無しさん2014/05/11(日) 20:39:46.70ID:0QNYDm24
>>480
ありがとうございます。そちらで質問させていただきます。
0482デフォルトの名無しさん2014/05/11(日) 21:08:18.06ID:valH51XC
WordVBAスレがないんでここで質問させてください

フォルダに画像がたくさんあります。
これをWord文書の1ページに1枚貼り付けたいです。
貼り付け方は左上に合わすだけでいいのでたぶんそんなに設定はしなくていいんじゃないかな。
貼り付け方も行内でも四角でもどちらでも変わらないと思うし。
でも今後の発展のため仮に画面の中央のどまんなかにあわせ、挿入方法は「四角」だとどうなるでしょう？
幅・高さは、どちらかが外周に接するところまでひきのばし/縮めるとします。縦横比はオリジナルと同じにして。

ExcelVBAからでもCreateObject("Word.Application")みたい感じでWordを操ることができると思うのでお願いいたします。
0483デフォルトの名無しさん2014/05/11(日) 21:09:51.81ID:valH51XC
まあ画像のフルパス("C:\Users\USER\Desktop\pic01.jpg")みたいなのを
Excelのセルにあらかじめ書き込んでるとしましょう。
0484デフォルトの名無しさん2014/05/12(月) 01:23:50.26ID:DXQGbXMr
質問です。
VBAの講習を受講して思ったが、簡単な実務に生かすために、短時間で習得するための方法。
これあってますか？
★マクロを組んで、マクロで処理できない条件処理の構文を追加することを覚えることが、
一番楽で簡単なエクセル処理には向いてますか？
それとも、すべて手打ちすることを覚えるほうが、かなり有用ですか？


状況
簡単なマクロ等の自動処理がしたい。
スキルは、VBAの勉強は講習で30時間ほど。まったく身につかなかった。
関数等は普通に使える。
0485デフォルトの名無しさん2014/05/12(月) 11:17:08.22ID:tYXPKjS8
今の自分が必要とするもの…で無い限りモチベーションに苦労しないか？
実務に活かす事が目的なら今の仕事を自動化するにはどうればいいかを考えれば良いと思う

>すべて手打ちすることを覚えるほうが
ってのが何を言ってるのかわかんないけど。
0486デフォルトの名無しさん2014/05/12(月) 13:02:48.27ID:OiSoC7y/
マクロの記録と手書きで違うものだと思ってるのかな
0487デフォルトの名無しさん2014/05/12(月) 22:03:47.06ID:1mlAXgHL
マクロ自動記録で出来る事できない事は把握してるようだけど。。。
要は「簡単なマクロ等の〜」簡単がどこまでかでしょう。
最初はきちんと教えてもらった方がいい。
観念的だが、ゼロ→１は難しく１→２は比較来容易
0488デフォルトの名無しさん2014/05/13(火) 02:43:20.87ID:/l0lTNTz
俺にはこの人の文章が理解できないが
30時間も講習うけてまったく身につかなかった人だぞ
うける講習まちがってるか、絶望的に向いてない人かどっちかだ
0489デフォルトの名無しさん2014/05/13(火) 11:32:08.29ID:VmzA9yq/
>>484の★部分の意訳

マクロの自動記録をして
自動記録では処理が出来ない条件分岐等をVBAで追加するという方法が、
エクセルでの処理の自動化には有効ですか？

それとも、自動記録に頼らず、
全てVBAで記述することを覚えたほうが良いでしょうか?

ということだと思う。

俺なりの回答としては、自動記録を使おうが使うまいが
VBAの基本的な知識はどっちみち必要だし是非覚えるべき。

VBAで出来て自動記録で出来ないことはたくさん有るけど
自動記録で出来てVBAで出来ないことはない。

もちろん、自動記録で出来ることならVBA使わずにやったって構わないし、
自動記録で記録したほうがコード手書きするより早い場合もある。

でも、VBAを知ってないと
やりたい作業を自動記録でやるのとVBAでやるのと
どっちが楽かとか判断できない。
0490デフォルトの名無しさん2014/05/13(火) 12:55:48.39ID:V6Rb20LO
再利用性とか考えると、シートからのデータ抽出、主処理、処理結果の反映って作りになる
だからマクロの記憶はベースとなるものではなく、Excelオブジェクトの操作方法を調べる時ぐらいしか使わない
0491デフォルトの名無しさん2014/05/13(火) 16:35:43.02ID:JkOdWH0g
Sub A()
Range("D11").Select
Selection.End(xlDown).Columns("H").Select
ActiveCell.FormulaR1C1 = "1"
End Sub

(H列,Dの最終行)に1を入れたいんですが(K列,Dの最終行)になってしまいます。
どうすればいいんでしょうか。
0492デフォルトの名無しさん2014/05/13(火) 16:49:49.69ID:VmzA9yq/
Selection.End(xlDown).Columns("H").Select

ってところが問題
これだとSelectionが"D11"で、.End(xlDown)がそこからの最終行（つまりD列の最終行）となるんだけど、
次の.Columns("H").Selectはそこを1列目（A列）として右に8列目（H列）
（つまりD列の7列右でK列）を選択している。
解決方法はまぁとりあえず.Columns("E").Select　とか　.Columns(5).Selectにしたり、
列の指定と行の指定を別々にやったり色々ある
0493デフォルトの名無しさん2014/05/13(火) 18:00:38.46ID:JkOdWH0g
Hの文字を内部に使いたいんですがその場合はどういう方法がいいでしょうか
0494デフォルトの名無しさん2014/05/13(火) 18:51:25.04ID:r+9o8GUq
あるセル範囲 (行も列も複数ある) の値を配列変数に入れるには、どういう方法が一般的ですか？
行と列の二次元だけれど、配列は1次元とします。(順番はどうでもいい。セル範囲のセル数が要素数となる。)
0495デフォルトの名無しさん2014/05/13(火) 18:52:46.12ID:r+9o8GUq
ついでに空白セルがあった場合はそのセルは無視します。
0496デフォルトの名無しさん2014/05/13(火) 19:01:16.72ID:VmzA9yq/
>>493
列と行を別々に指定する。

つまり、列はH列で決まってるわけだから
Cells(Selection.End(xlDown).Row, "H").Select
とかでいいじゃん。

Selection.End(xlDown).Row
で、Selection（つまり"D11"）から下に探した行を取得して、それを指定
列はそのまま"H"でH列を指定
ということ
0497デフォルトの名無しさん2014/05/13(火) 19:08:16.70ID:JkOdWH0g
>>496
ありがとうございます
04984872014/05/13(火) 21:08:23.50ID:wn45zDPA
>>488
すまん、30分と間違えた
0499デフォルトの名無しさん2014/05/13(火) 21:32:17.40ID:ph3+WM+5
30分www
まぁ手書きで
0500デフォルトの名無しさん2014/05/14(水) 15:02:32.44ID:CuHF+7gT
何方か>>478をお願いします。
検索してみたら、同じ様な事をしたい人が居たのですが、解決には至っていませんでした。
どうか、宜しくお願いします。
0501デフォルトの名無しさん2014/05/14(水) 17:08:56.86ID:ZCY9UWx+
>>500
実行するたびにシートが増えるが、そこはどうにかしろ。

Sub foo()
　　Dim r As Range
　　Dim sheet As Worksheet

　　For Each r In Range("A1").CurrentRegion
　　　　Set sheet = Worksheets.Add
　　　　クエリ抽出 sheet, r.Value
Next
End Sub

Sub クエリ抽出(ByRef sheet As Worksheet, ByVal url As String)
　　With sheet.QueryTables.Add(Connection:= _
　　　　"url;" & url, _
　　　　Destination:=sheet.Range("A1"))
　　　　.WebSelectionType = xlSpecifiedTables
　　　　.WebFormatting = xlWebFormattingNone
　　　　.WebTables = "1"
　　　　.Refresh BackgroundQuery:=False
　　End With
End Sub
05025002014/05/15(木) 01:25:42.71ID:Gz+0SdGV
>>501
ありがとうございます。
今夜、早速試してみます。
0503デフォルトの名無しさん2014/05/17(土) 08:01:53.07ID:nXU1UeAN
2次元配列の要素の数を調べるにはどうすればいいですか？
普通のはUBoundでいけるけど、2次元だと詰んでる。
0504デフォルトの名無しさん2014/05/17(土) 08:07:13.92ID:bGHl19aa
それぐらいぐぐれよw
0505デフォルトの名無しさん2014/05/17(土) 08:10:05.17ID:q+MS9gLN
ヘルプで十分
05065002014/05/17(土) 09:11:27.80ID:kSvc6BWF
>>501
実際に動作を確認しました。
シートが一枚一枚、増えるのはこちらの希望通りで、問題ありません。
期待していた通りになってくれました。大変助かりました。
重々、お礼申し上げます。ありがとうございました。
0507デフォルトの名無しさん2014/05/17(土) 18:55:01.51ID:nXU1UeAN
じゃあ
2次元配列の要素数を動的にして
あとでReDimで変更するにはどうしたらいいですか？
2つのうち両方とも変更したいです。
0508デフォルトの名無しさん2014/05/17(土) 19:03:56.16ID:q+MS9gLN
>>507
そんなもん自分でやってみりゃいいじゃん
なんでもかんでも聞くなよ

Sub test()
　　Dim a()
　　ReDim a(3, 3)
　　ReDim a(5, 5)
End Sub

さあ、どうなった？
0509デフォルトの名無しさん2014/05/17(土) 19:54:30.60ID:nXU1UeAN
>>508
あれ、できるじゃないか。
おかしいな。
2次元動的配列は、最終の2次元目のみ要素数を変更できると書いてあったのに。
0510デフォルトの名無しさん2014/05/17(土) 19:57:07.95ID:nXU1UeAN
実際こうしたらエラーが出たぞ。

Sub test2()
Dim a() As String
ReDim a(3, 3)
ReDim Preserve a(5, 5)
End Sub
0511デフォルトの名無しさん2014/05/17(土) 20:48:25.73ID:q+MS9gLN
>>510
ヘルプぐらい読め
ていうかまず一番にヘルプを読め
ヘルプでわからなかったらググれ
それでもわからなかったら人に聞け
0512デフォルトの名無しさん2014/05/17(土) 21:35:47.99ID:nXU1UeAN
ヘルプ見つからず、検索出てこず、ここで人に聞いても回答なし。
詰んでる。
0513デフォルトの名無しさん2014/05/17(土) 21:43:18.79ID:E1N9nGHa
PreserveなしのRedimは次元数も要素数も変更できる
Preserve付きのRedimは次元数は変更できず、最後の次元の要素数のみ変更できる
0514デフォルトの名無しさん2014/05/17(土) 22:28:57.78ID:q+MS9gLN
>>512
Excelが入っててヘルプが入ってないわけないだろ
0515デフォルトの名無しさん2014/05/17(土) 22:40:38.76ID:bGHl19aa
これすら見つけられなかった？
Redimステートメント
http://msdn.microsoft.com/ja-jp/library/w8k3cys2.aspx
0516デフォルトの名無しさん2014/05/17(土) 22:42:59.11ID:bGHl19aa
VS2013？間違えた
0517デフォルトの名無しさん2014/05/17(土) 23:06:02.53ID:q+MS9gLN
msdnだと日本語のリファレンスが見つからないんだよなあ (VBはあるけどVBAが見あたらない)
http://msdn.microsoft.com/en-us/library/gg251578%28v=office.15%29.aspx

探し方が悪い気もするんだけど、ようわからん
0518デフォルトの名無しさん2014/05/18(日) 11:25:50.87ID:f0QDfVej
正直、ヘルプMSDNとかよりもググって誰かの書いた説明の方が
わかりやすいと思ってしまう俺はド素人なんだろうな。
0519デフォルトの名無しさん2014/05/18(日) 11:52:19.34ID:rUx0aG1K
とりあえず動けばいいレベルのマクロを作るだけなら何を参考にしてもいい
想定外の動作をしてバグか仕様か自分の勘違いかわからない時は、結局はmsdnやヘルプを確認するしかない時もある

もちろん公式文書にも間違いはあるので注意が必要だけど、>>510みたいにヘルプにちゃんと書いてあることを
あたかも大発見みたいに書かれると萎える
0520デフォルトの名無しさん2014/05/18(日) 16:00:29.34ID:1/it3LsY
>>518
英語力の問題では？
0521デフォルトの名無しさん2014/05/18(日) 16:47:32.55ID:0bx4PTQ0
>>518
ヘルプやMSDNがわかりやすいと思ったら、だれもそんな解説書かないだろ
ヘルプみてわけわからんなら解説探せばいいけど、公式情報みるのは最低限必要
0522デフォルトの名無しさん2014/05/18(日) 21:22:16.26ID:UBuQU1Du
http://toro.2ch.net/test/read.cgi/tech/1382015080/
0523デフォルトの名無しさん2014/05/18(日) 22:00:39.47ID:H/JD4vj2
MSDNも、機械翻訳版だと無意味に近いし、
人間が訳したのは英語版の重要なところを
こっそりスッ飛ばしてる場合があるから要注意だ。
0524デフォルトの名無しさん2014/05/21(水) 22:23:52.70ID:BFHFMym8
俺ほどの人間は、自分で調べるなんて愚行しない。
ここに書いて手っ取り早く解答得るのがベスト。
0525デフォルトの名無しさん2014/05/22(木) 17:38:55.74ID:OR1KcKew
そして素人の書いた適当なレスに騙される
0526デフォルトの名無しさん2014/05/22(木) 18:09:40.63ID:jxaWow30
情報とか手がかりじゃなくて解答というあたりが･･･
0527デフォルトの名無しさん2014/05/24(土) 10:53:14.15ID:eu02DRrY
Excel2013 の PDF保存のコードについて教えてくださいませ。
名前をつけて保存、で複数シートを1つのPDFに保存するコードを書きましたが
なぜか動く動きません。

Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select
Sheets("Sheet1").Activate
ActiveSheet.ExportAsFixedFormat type:=xlTypePDF,
Filename:= "C:\Sheet123.pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True

Arrayで最初に選択したシートのみが出力されてしまいます。
2行目の Sheets("Sheet1").Activate を削除しても結果は変わらずでした。
マクロで記録しても、上記と同様のコードが記録されます。
しかしこの記録されたマクロを実行すると、やはり最初に選択したシートしかPDF出力されません。

何が足りないのでしょうか？
05285272014/05/24(土) 10:56:45.70ID:eu02DRrY
ごめんなさい！出来ました！ワ〜イ
ウィンドウを複数開いてたのが原因でした
0529デフォルトの名無しさん2014/05/25(日) 22:23:52.52ID:8sEJJ/Xn
VBAを使ってπの道の桁数の計算に挑戦することは可能ですか？
0530デフォルトの名無しさん2014/05/25(日) 22:24:17.44ID:8sEJJ/Xn
>>529
道→未知・・
0531デフォルトの名無しさん2014/05/26(月) 10:24:59.73ID:xBqIirxp
挑戦するだけなら可能でしょ
成功はしないけど
0532デフォルトの名無しさん2014/05/26(月) 12:13:08.87ID:ptXAqcmg
たぶん未知の領域に到達する前に
後から来る人に追い越される
0533デフォルトの名無しさん2014/05/26(月) 12:26:24.18ID:dlApJPlM
道の桁数の計算方法が確定しているなら
その計算に必要なリソースが確保できるなら可能
0534デフォルトの名無しさん2014/05/26(月) 15:34:56.33ID:EGdbrytd
いや、未知の桁数に達するまで太陽系が存在出来るかを問題にしないと
0535デフォルトの名無しさん2014/05/26(月) 19:57:34.24ID:dlApJPlM
>>534
挑戦出来るかどうかと聞いてるから、そこは問題にならない
0536デフォルトの名無しさん2014/05/26(月) 20:30:26.14ID:9XuuTI4K
Excel VBA 量子コンピューター版が出れば最初に的確に着手した人なら達成出来る？
http://it.impressbm.co.jp/articles/-/10453
D-Wave はコンピュータではないらしい。
計算を高速化する独自の数式や手法を発見すれば現在のExcelでも可能？
0537デフォルトの名無しさん2014/05/26(月) 20:39:03.08ID:JsbqvBWY
考えてみればExcelは1つじゃない
手に入るだけの台数の高速なＰＣ（数千・数万台とか）とExcelで並列処理させればできるか？
VBAが何所まで並列処理にむいているかはやったことが無いのでわからんが。
0538デフォルトの名無しさん2014/05/26(月) 20:51:31.05ID:LCv9Wl+A
>>529
VBA は 64KB 壁があったりして棘の道だと思うが君ならきっとやれる。
0539デフォルトの名無しさん2014/05/26(月) 23:11:20.50ID:Ed2uGBCo
仕事で自動化したくてOLEオートメーション使いたいのだけど
これってもう古いの？
どこ探してもよくわからない
おすすめの本ってある？
0540デフォルトの名無しさん2014/05/26(月) 23:43:24.09ID:7NSDbYse
>>539
質問の意味が良くわからない
何を自動化したいのか
「オートメーション」という言葉を何か勘違いして受け取っているようにも見える
0541デフォルトの名無しさん2014/05/26(月) 23:47:12.46ID:Js6v2rIN
ActiveXでぐぐれなさい
0542デフォルトの名無しさん2014/05/27(火) 11:36:41.29ID:CQuE4vUS
ＶＢＡで満足しているんですが、
ほかのプログラム言語覚えるとなにかいいことありますか？
ＶＢＡじゃ出来ないことある？
0543デフォルトの名無しさん2014/05/27(火) 12:10:21.53ID:pK8lgo+n
>>542
もちろんVBAにできないことはたくさんあるけど、他の言語にもそれぞれ苦手な分野があるんで
自分のやりたいことがVBAじゃ大変だとわかってから、その作業に最適な言語を探した方が無駄が少ないかもね
0544デフォルトの名無しさん2014/05/27(火) 12:29:28.96ID:CQuE4vUS
>>543
そうですかぁ
目的はっきりしないうちに、
ほかの言語覚えるのも大変ですよね・・
ＶＢＡの限界がみえるまではＶＢＡだけで行きます！
■ このスレッドは過去ログ倉庫に格納されています