Excel VBA 質問スレ Part41©5ch.io
■ このスレッドは過去ログ倉庫に格納されています
0001デフォルトの名無しさん 転載ダメ©2ch.net
2016/04/27(水) 04:11:46.79ID:Nk+oP5xRコード書き込みや作成依頼もOK
※前スレ
Excel VBA 質問スレ Part40
http://echo.2ch.net/test/read.cgi/tech/1455817784/
※関連スレ
VBAなんでも質問スレ Part2
http://echo.2ch.net/test/read.cgi/tech/1432173164/
Access VBA 質問スレ Part1
http://echo.2ch.net/test/read.cgi/tech/1328536426/
Excel総合相談所 122
http://echo.2ch.net/test/read.cgi/bsoft/1461287268/
0093デフォルトの名無しさん
2016/05/02(月) 15:56:15.53ID:WvgoLY0A0094デフォルトの名無しさん
2016/05/02(月) 18:35:24.79ID:tBJRQx2nドキュメントの中を操作するときは、
objie.Busy = True Or objie.ReadyState <> 4
のループの後に、
objIE.document.ReadyState が "complete"になるまで待った方がいい。
0095デフォルトの名無しさん
2016/05/02(月) 18:46:14.55ID:8Cx+VcMTExcelのバージョンの問題ですね
0096デフォルトの名無しさん
2016/05/02(月) 18:58:03.00ID:rgztSLD4＞>>83
＞Variant型はハグの元
今後可愛い女性に対してなら必ず使わせてもらおう
男が使ったら顔の形が分からなくなるくらいまでぶん殴るかも知れない
0097デフォルトの名無しさん
2016/05/02(月) 20:02:50.58ID:xcJ43A0Jこれかな
試しにループ除いて、2,3秒待ってからクリックするようしてみたらできないか？
0098デフォルトの名無しさん
2016/05/02(月) 20:53:03.32ID:Xt0DxDQ3Visual Basic
Visual C#
の2つを平行で勉強はじめたけどそっくりすぎやしないか？
これどっちか1つにしぼるとしたらどっちがいい？
0099デフォルトの名無しさん
2016/05/02(月) 20:57:35.14ID:xZrjNArl0100デフォルトの名無しさん
2016/05/02(月) 21:08:12.40ID:3bYl7aeDそんなのVBAに決まってるだろ
010192
2016/05/02(月) 21:08:53.84ID:qnyBKwLuレスありがとうございました。ちなみにExcelのバージョンは2016です。
調べてみたら、確かに94氏の言う通り、objIE.document.ReadyState = "Complete"
のループを追加しないとエラーの原因になるんですね。一定時間が経過してから
上記を追加して検証してみます。ありがとうございました。
0102デフォルトの名無しさん
2016/05/02(月) 21:22:28.55ID:4tcpikla勉強したらオレにLINQを教えてくれ
0103デフォルトの名無しさん
2016/05/02(月) 21:55:58.22ID:l4EfLYgvCかC++をやれよ高度だぞ
0104デフォルトの名無しさん
2016/05/02(月) 22:00:15.92ID:4tcpikla0105デフォルトの名無しさん
2016/05/02(月) 22:06:27.11ID:RcDnq76T0106デフォルトの名無しさん
2016/05/02(月) 22:48:52.56ID:RnthQ0WY0107デフォルトの名無しさん
2016/05/02(月) 23:57:45.81ID:xuf7icL/俺はプログラマだっての。
0108デフォルトの名無しさん
2016/05/02(月) 23:58:44.90ID:4tcpiklaそういう苦労が山ほどあったわけよー、分かる？ それを今は .Net連携だとかで済ますっていうのがさー、心がこもってないっていうかさー
0109デフォルトの名無しさん
2016/05/03(火) 00:04:12.47ID:VOABePutプログラム言語とみなされてなかった。死にたい。
0110デフォルトの名無しさん
2016/05/03(火) 04:29:40.49ID:K2cMa6s90111デフォルトの名無しさん
2016/05/03(火) 06:21:01.33ID:m0WSkRh/確かに
仕方なく vbs でやってたけど最近 PowerShell の方が楽だと気づいた
0112デフォルトの名無しさん
2016/05/03(火) 08:57:22.05ID:+0pS9A2f多分VBから入ってObject指向の考え方を押さえてからC#の文法を押さえるといいかも
VBAやってる人がいきなり考え方も文法も違うのをやるとかえってキツいかもよ
0113デフォルトの名無しさん
2016/05/03(火) 09:43:53.02ID:yyfQ64gm0114デフォルトの名無しさん
2016/05/03(火) 11:50:04.12ID:WpiLU58G大きさや色を変えることはできないですか？
0115デフォルトの名無しさん
2016/05/03(火) 12:23:18.09ID:F7Orkgnrいやそれやったらvbsのが楽や言っとんのやでｗ
0116デフォルトの名無しさん
2016/05/03(火) 12:37:00.12ID:TF5VRcqZCOBOLはあるのになｗ
0117デフォルトの名無しさん
2016/05/03(火) 12:49:05.33ID:IJoN7jmcO vbsの方が
O vbsが
日本語は正確にね。
0118デフォルトの名無しさん
2016/05/03(火) 13:09:39.65ID:TF5VRcqZ関西弁であること自体はスルーなのか？
0119デフォルトの名無しさん
2016/05/03(火) 19:29:08.93ID:G9XEXQGeBitTorrent（Covenant）が活発な情報交換・交流コミュニティでオープンソース開発されています（プログラマー募集中）
言語は何でも大丈夫だそうなので、P2P書きたい！って人居ませんか？
Covenantの作者（Lyrise氏）がそういう人と話したいそうなので、よろしければツイートお願いします<(_ _)>
https://twitter.com/Lyrise_al
ちなみにオイラはCovenantの完成が待ち遠しいプログラミングできない情報発信好きアスペルガーｗ
The Covenant Project
概要
Covenantは、純粋P2Pのファイル共有ソフトです
目的
インターネットにおける権力による抑圧を排除することが最終的な目標です。 そのためにCovenantでは、中央に依存しない、高効率で検索能力の高いファイル共有の機能をユーザーに提供します
特徴
Covenant = Bittorrent + Abstract Network + DHT + (Search = WoT + PoW)
接続は抽象化されているので、I2P, Tor, TCP, Proxy, その他を利用可能です
DHTにはKademlia + コネクションプールを使用します
UPnPによってポートを解放することができますが、Port0でも利用可能です(接続数は少なくなります)
検索リクエスト、アップロード、ダウンロードなどのすべての通信はDHT的に分散され、特定のサーバーに依存しません
３
0120デフォルトの名無しさん
2016/05/03(火) 19:46:05.17ID:TF5VRcqZ0121デフォルトの名無しさん
2016/05/03(火) 21:52:26.24ID:yyfQ64gm0122デフォルトの名無しさん
2016/05/03(火) 21:55:40.94ID:H0kUs87y0123デフォルトの名無しさん
2016/05/04(水) 07:47:26.67ID:699UW8S30124デフォルトの名無しさん
2016/05/04(水) 09:51:25.99ID:PaYYDWD90125デフォルトの名無しさん
2016/05/04(水) 12:09:43.80ID:v4t0cuU7普通にモジュール単位でGitとかで？
0126デフォルトの名無しさん
2016/05/04(水) 12:20:35.13ID:oenZgVkwそれで困るようなマクロ作ってるとしたら、その方が大問題やで
0127デフォルトの名無しさん
2016/05/04(水) 13:17:25.90ID:6R2nO+Chうーん、君はプログラマなのか、それともVBAジジイなのかどちらなのかな
0128デフォルトの名無しさん
2016/05/04(水) 15:49:03.52ID:kgGBLx4Kマクロお願いします。
0129デフォルトの名無しさん
2016/05/04(水) 16:34:05.11ID:vhNrbATPボタンの作成もVBAでってことよね？
各セルのサイズのボタンでいいのね？
0130デフォルトの名無しさん
2016/05/04(水) 20:47:54.52ID:kgGBLx4Kよろしくお願いします！
0131デフォルトの名無しさん
2016/05/04(水) 21:28:07.96ID:RttM+uYJ「ハイパーリンクを追加」
0132デフォルトの名無しさん
2016/05/04(水) 21:53:24.10ID:Z9f5Mv8iなんやVBAジジイて？俺はハゲとらんで
0133デフォルトの名無しさん
2016/05/04(水) 23:57:31.15ID:UxdZjK7v0134デフォルトの名無しさん
2016/05/05(木) 00:07:18.30ID:MXj1Omkp'***通常公開マクロ(ボタン作成用なのでボタン追加後不要なら消してもいい)
'指定位置に指定範囲へのジャンプボタンを作成
Sub InitializeJumpButton()
Call AddJumpButton(Range("a1"), Range("aa1"))
Call AddJumpButton(Range("b1"), Range("bb1"))
End Sub
'ActiveSheetにあるジャンプボタンをすべて削除（ボタン作成のやり直し用として）
Sub DeleteJumpButtons()
Dim btn As Object
For Each btn In ActiveSheet.Buttons
'OnActionに"JumpButton_Click"を含むボタン
If btn.OnAction Like "*JumpButton_Click*" Then btn.Delete
Next
End Sub
'指定セル範囲にボタン配置
Private Function AddJumpButton(TargetRange As Range, JumpRange As Range) As Object
With TargetRange
Set AddJumpButton = .Worksheet.Buttons.Add(Left:=.Left, Top:=.Top, Width:=.Width, Height:=.Height)
End With
With AddJumpButton
.Caption = "ジャンプ"
.OnAction = "'JumpButton_Click """ & JumpRange.AddressLocal(External:=True) & """'"
End With
End Function
'***内部処理マクロ(ボタンクリック時の処理なのでボタン追加後は削除してはだめ)
'Jumpボタンクリック時のFunction(各ボタンで共通)
Public Sub JumpButton_Click(JumpAddress As String)
Call Application.Goto(Range(JumpAddress))
End Sub
0135デフォルトの名無しさん
2016/05/05(木) 09:53:33.08ID:wVu1dK4o.... 吉 → ♌ 獅子座 ♍ 乙女座
.... 中吉 → ♎ 天秤座
.... 小吉 → ♈ 牡羊座 ♉ 牡牛座 ♊ 双子座 ♑ 山羊座
.... 末吉 → ♋ 蟹座 ♐ 射手座 ♓ 魚座
.... 凶 →
.... 大凶 → ♏ 蠍座
0136デフォルトの名無しさん
2016/05/06(金) 12:27:37.21ID:9WuDa+H70137デフォルトの名無しさん
2016/05/06(金) 15:32:29.40ID:jeM8Wxz0仕事もできなさそうなイメージしかない
0138デフォルトの名無しさん
2016/05/06(金) 15:47:33.28ID:7cHuoK0Qお互いに利点はある
0139デフォルトの名無しさん
2016/05/06(金) 19:35:21.05ID:MWUQQppAちょっと違うページ見たい場合に指挟んでおけばすぐ戻れるし、
ただ読むだけなら電子書籍でいいけど、専門書とかは紙の方がまだ使い勝手がいい。
なんか最初に期待されていた「辞書の様な厚みの本を軽々持ち運べる」っていう方面の利便性とは逆行ってるけど。
0140デフォルトの名無しさん
2016/05/06(金) 19:49:09.28ID:VrRBN5VM本人にとって分かり易くて使い易ければ。
それは手段であって目的ではない。
0141デフォルトの名無しさん
2016/05/06(金) 21:47:39.28ID:UUicjikBそういうことだよ
0142デフォルトの名無しさん
2016/05/06(金) 21:55:45.06ID:WGsHbg0z0143デフォルトの名無しさん
2016/05/06(金) 22:03:07.91ID:jeM8Wxz0さすがに俺でも気付くレベル
0144デフォルトの名無しさん
2016/05/06(金) 22:31:34.28ID:nS8waJnA技術書こそ電子書籍の本領発揮する場所だし。
ブックマークやブラウズ機能使えば指の数以上の働きできるし。
もはや、「分厚い辞書を持ち運べる」レベルではなく「司書つきの私設図書館を持ち運べる」レベルだよ。
ちゃんと使えばね。
0145デフォルトの名無しさん
2016/05/06(金) 22:34:13.21ID:3OzCd6+q0146デフォルトの名無しさん
2016/05/07(土) 00:37:16.06ID:znoXDAwn0147デフォルトの名無しさん
2016/05/07(土) 02:36:05.94ID:doNSv0Rb普通は目次や索引からあたりをつけるか、読み進めて行ってマークするんだぜ
検索するにしても、見出しを優先して検索する方が効率的なわけで
全文検索するという事は、まともな編集がされてないって事だぜ
0148デフォルトの名無しさん
2016/05/07(土) 04:00:08.68ID:15PuB45pってタブレットとスキャンスナップも
買ったんだけどどうも合わなかった。
なんか頭に入ってこない感じで。
漫画なら全然いいんだけど技術書は
結局紙媒体買ってるわ。
0149デフォルトの名無しさん
2016/05/07(土) 10:25:44.21ID:1wAcRjrQ0150デフォルトの名無しさん
2016/05/07(土) 11:15:06.02ID:RCS6miPN0151デフォルトの名無しさん
2016/05/07(土) 11:42:59.57ID:98qiMegfプレゼンスライドのように短時間で要点を得る事が出来る媒体が現代的
0152デフォルトの名無しさん
2016/05/07(土) 11:48:35.34ID:Nq/4SgpV0153デフォルトの名無しさん
2016/05/07(土) 11:53:03.45ID:8kiHQWJT0154デフォルトの名無しさん
2016/05/07(土) 15:00:10.35ID:1wAcRjrQんじゃ、ここでピントの合ったレスをID:8kiHQWJTがどうぞ
0155デフォルトの名無しさん
2016/05/07(土) 15:35:39.10ID:nzotyd+v紙だろうが電子だろうが書籍の出番なし
0156デフォルトの名無しさん
2016/05/07(土) 16:20:40.94ID:PC4ZOeicオフラインのヘルプ日本語版が欲しい
0157デフォルトの名無しさん
2016/05/07(土) 16:27:15.49ID:6qCtvFTs電子オンラインヘルパーさんの出番なし
0158デフォルトの名無しさん
2016/05/07(土) 17:34:52.23ID:sN4H5bv9ドン引き
0159デフォルトの名無しさん
2016/05/07(土) 17:49:10.43ID:1Difn6h50160デフォルトの名無しさん
2016/05/07(土) 18:04:13.20ID:QutgNX3WOffice 2013 VBA用オフライン ヘルプ ファイルが欲しい場合〜開発時に役立ちます！ - 元「なんでもエンジニ屋」のダメ日記
http://nasunoblog.blogspot.jp/2013/11/office-2013-vba.html
これではダメ？
0161デフォルトの名無しさん
2016/05/07(土) 22:11:16.28ID:sN4H5bv9出ていってくれ
0162デフォルトの名無しさん
2016/05/08(日) 00:54:50.32ID:ikF8GjeW0163デフォルトの名無しさん
2016/05/08(日) 01:10:44.31ID:HXCktBbn日本語ヘルプなんて誤訳だらけで役に立たないのに
0164デフォルトの名無しさん
2016/05/08(日) 04:17:19.71ID:ikF8GjeW0165デフォルトの名無しさん
2016/05/08(日) 06:04:10.40ID:d67L2ADZ0166デフォルトの名無しさん
2016/05/08(日) 08:58:00.55ID:7UXL6x+WJapanese help isn't useful full of mistranslation.
0167デフォルトの名無しさん
2016/05/08(日) 09:40:20.29ID:cY3IZjLswith poor ability not to read this easy English?
The MSDN document in Japanese translation doesn't help!
0168デフォルトの名無しさん
2016/05/08(日) 10:20:00.62ID:MurkxjfXこなれた感を必死に出そうとして滑稽
Oh 坊やと英語板では呼ばれている
0169デフォルトの名無しさん
2016/05/08(日) 10:45:47.51ID:NRyLEpvc>>168
ですってyo
0170デフォルトの名無しさん
2016/05/08(日) 11:33:31.06ID:rP7gnQo6最後の方で「セルに書く方の関数の事やんけ！」ってなった事はある。
0171デフォルトの名無しさん
2016/05/08(日) 11:35:57.16ID:7UXL6x+W文句はエキサイト翻訳に言えばいいと思うよ...
恥ずかしい奴 w
0172デフォルトの名無しさん
2016/05/08(日) 13:08:20.31ID:cY3IZjLsHey, you dare work on programming
with poor ability not to WRITE this easy English?
The translation service of Excite doesn't help!
0173デフォルトの名無しさん
2016/05/08(日) 14:12:42.71ID:6KbaYcKf具体的なたとえで言いますと
Personというクラスからたくさんオブジェクトをつくり
その1つのプロパティであるBirthDayで生年月日順で人を並べたいのです。
0174デフォルトの名無しさん
2016/05/08(日) 14:29:53.33ID:QvSZMceuWith Sheet3
Sheet1.Range(
0175デフォルトの名無しさん
2016/05/08(日) 14:30:54.84ID:QvSZMceuWith Sheet3
Sheet1.Range("A1").CurrentRegion.Copy .Range("A1")
With .Range("A1").CurrentRegion
.AdvancedFilter xlFilterInPlace,Sheet2.Range("A1").CurrentRegion
.SpecialCells(xlCellTypeVisible).Clear
End With
.ShowAllData
For a=.Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
If .Range("A" & a)="" Then
.Rows(a).RntireRow.Delete
End If
Next a
End With
Sheet1とSheet2を比較し、変更があったところをSheet3にコピーしているのですが、
変更箇所がわかるようにセルの色を変えたいのですが、どうしたらよいかわからず
困っています。わかる方いらっしゃいますでしょうか？
0176デフォルトの名無しさん
2016/05/08(日) 14:35:59.31ID:QvSZMceu0177デフォルトの名無しさん
2016/05/08(日) 14:36:08.66ID:ZUgYOGn0インデックス[0〜n-1]の配列をプロパティ順にソートしておく。
対象のクラスオブジェクトの配列を、先ほど作っておいたインデックスに沿ってpermutateする。
0178デフォルトの名無しさん
2016/05/08(日) 15:05:36.92ID:E74hVYZWシートにインスタンスオブジェクトを識別するIDと
プロパティをA列、B列に入力して
プロパティの列目でソートする
ID列の値でアクセスする
インスタンスオブジェクトはdictionaryに格納してIDをキーにしておく
0179デフォルトの名無しさん
2016/05/08(日) 15:08:58.84ID:E74hVYZWif文で比較して違ったらrange.interior.colorプロパティを変えるとか
書き方が判らないのはマクロを記録してみたら判ると思うけど？
0180デフォルトの名無しさん
2016/05/08(日) 15:12:38.09ID:rP7gnQo6Sub Test(Person, Collection)
i = 1
If Collection.Count Then
For i = i To Collection.Count
If Person.BirthDay < Collection(i).BirthDay Then Exit For
Next
End If
Collection.Add Person, , i
End Sub
>>175
Sub Test(Sheet1, Sheet2, Sheet3)
s1d = Sheet1.UsedRange.Value
s2d = Sheet2.UsedRange.Value
For i = LBound(s1d, 1) To UBound(s1d, 1)
For j = LBound(s1d, 2) To UBound(s1d, 2)
If s1d(i, j) <> s2d(i, j) Then
Sheet1.Cells(i, j).Interior.Color = RGB(255, 0, 0)
Sheet1.Cells(i, j).Copy Sheet3.Cells(i, j)
End If
Next
Next
End Sub
0181デフォルトの名無しさん
2016/05/08(日) 15:12:56.95ID:QvSZMceuおそらく
With .Range("A1").CurrentRegion
.AdvancedFilter xlFilterInPlace,Sheet2.Range("A1").CurrentRegion
.SpecialCells(xlCellTypeVisible).Clear
End With
の間に入れるのだろうとは思ったのですが、うまくいきません。
if文で比較というのは、ShowAllDataの前に入れるってことですか？
0182デフォルトの名無しさん
2016/05/08(日) 15:44:19.75ID:QvSZMceuありがとうございます。
Sub Test(Sheet1, Sheet2, Sheet3)
の部分は、シート名をいれるのでしょうか？
0183デフォルトの名無しさん
2016/05/08(日) 15:47:12.37ID:rP7gnQo6Worksheetオブジェクトを入れる。
0184デフォルトの名無しさん
2016/05/08(日) 16:01:33.95ID:QvSZMceuone=Worksheet("Sheet1").UsedRange.Value
としているのに、For分のLBound(one,1)の所で配列がありませんと出てしまいます。
0185デフォルトの名無しさん
2016/05/08(日) 16:45:05.73ID:MWz94FDA自動記録で試したところ
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="Sheet2!A1"
このようなコードが出てきたのですが
選択中のセルに実行する命令では無くセル番地で実行する場所を指定したいのですが、一体どう書けばいいのでしょうか？
0186デフォルトの名無しさん
2016/05/08(日) 17:43:54.77ID:Uh7lvDUNexcel vba セル 番地 指定 でググる
0187デフォルトの名無しさん
2016/05/08(日) 17:49:35.23ID:B17gXYq2ActiveSheet.Hyperlinks.Add Anchor:=ActiveSheet.Range("B1"), Address:="", SubAddress:="Sheet2!A1"
0188デフォルトの名無しさん
2016/05/08(日) 18:50:05.07ID:LbMOyLBe>>186
ありがとうございます。
0189デフォルトの名無しさん
2016/05/08(日) 21:28:50.28ID:Mc3+72Z/隣り合ったふたつのセルを結合したいのですが、
1.セルA1とB1を結合
2.セルA2とB2を結合
3.以降、任意の行まで同じ作業を繰り返し
4.AB列で作業が終わったら次はCD列でも同じ作業
5.CD列が終了したらEF列に移動
6.以降、任意の列まで同じ作業を繰り返し
です。
その際結合させるふたつのセルにはそれぞれ値が入っていますが、活かすのは左のセルの値です。
結合の際の「右上のデータが〜」というメッセージは無視したいです。
どなたかお分かりの方がいらっしゃいましたらお願いします。
0190デフォルトの名無しさん
2016/05/08(日) 22:06:12.34ID:to9qHxlC0191デフォルトの名無しさん
2016/05/08(日) 22:14:16.85ID:to9qHxlCこんな感じ?
For cc = 1 To Selection.Columns.Count Step 2
For rr = 1 To Selection.Rows.Count
Selection.Cells(rr, cc + 1).Value = ""
Selection.Range(Cells(rr, cc), Cells(rr, cc + 1)).MergeCells = True
Next
Next
0192デフォルトの名無しさん
2016/05/08(日) 22:47:03.73ID:Mc3+72Z/さっそくのご回答ありがとうございます。
今から試してみます。
■ このスレッドは過去ログ倉庫に格納されています