トップページ⇒tech
1002コメント361KB

Excel VBA 質問スレ Part41©5ch.io

■ このスレッドは過去ログ倉庫に格納されています
0001デフォルトの名無しさん 転載ダメ©2ch.net2016/04/27(水) 04:11:46.79ID:Nk+oP5xR
ExcelのVBAに関する質問スレです
コード書き込みや作成依頼も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/
0084デフォルトの名無しさん2016/05/01(日) 20:02:25.44ID:FGPo8aL5
>>83
Variant型はハグの元だっていうのは、単に理解が浅いだけだからな。
本当にバグの元ならJavaScriptなんて使えたもんじゃねぇだろうと。
0085デフォルトの名無しさん2016/05/01(日) 20:24:15.84ID:4tDBI2/Z
>>79
いや、君の言ってる
> 下手に宣言するクセつけない方がいいけどな。
が意味不明なんだけど
0086デフォルトの名無しさん2016/05/01(日) 20:36:58.58ID:pgSGezQj
引数の型と返り値の型はVariant
ローカル変数は、ない

これがオレの理想
0087デフォルトの名無しさん2016/05/01(日) 20:37:38.51ID:pgSGezQj
理想は言い過ぎたな
スタンダードくらいか
0088デフォルトの名無しさん2016/05/01(日) 20:41:05.62ID:ycnEliip
>>79
ID:FGPo8aL5
バカ発見
0089デフォルトの名無しさん2016/05/02(月) 07:24:52.98ID:l4EfLYgv
>>86
えっどういうこと？
まさかスタティックおじさん？
0090デフォルトの名無しさん2016/05/02(月) 07:32:53.88ID:IhhEj+7h
>>89
スタティックと>>86とどう繋がる？
0091デフォルトの名無しさん2016/05/02(月) 10:17:18.36ID:3YV7E0Ft
スタティックおじさん
でググってこい
0092デフォルトの名無しさん2016/05/02(月) 14:44:30.79ID:qnyBKwLu
下記マクロにてVBAのIE操作で自動ログインさせているのですが、ID,パスワードを自動入力後
ログインボタンを押すマクロですが、一定時間(10〜20時間？)経過後、同じマクロを実行しても
ログインボタンが押せなくなっており、ログインできず処理が中断してかなり困っています。
一度手動でログイン後、再度マクロを実行すると問題なくログインボタンが押せるのようになるのですが、
何が問題なのでしょうか？

Sub ログイン()

Set objie = CreateObject("internetexplorer.application")
objie.Visible = True

objie.Navigate "https://s10.kabu.co.jp/_mem_bin/light/login.asp?/Light/";
Do While objie.Busy = True Or objie.ReadyState <> 4
DoEvents
Loop

objie.Document.All.SsLogonUser.Value = "自分のID"
objie.Document.All.SsLogonPassword.Value = "パスワード"

Dim waitTime As Variant
waitTime = Now + TimeValue("0:00:1")
Application.Wait waitTime

Dim obj As Object　　　　'objie.Document.forms(0).submitでも代替可
For Each obj In objie.Document.getElementsByTagName("input")
If obj.Value = "ログイン" Then
obj.Click
Exit For
End If
Next
End Sub
0093デフォルトの名無しさん2016/05/02(月) 15:56:15.53ID:WvgoLY0A
「ログインボタンが押せなくなって」るんなら、VBA関係ないんじゃないの？
0094デフォルトの名無しさん2016/05/02(月) 18:35:24.79ID:tBJRQx2n
>>92


ドキュメントの中を操作するときは、
objie.Busy = True Or objie.ReadyState <> 4
のループの後に、
objIE.document.ReadyState が "complete"になるまで待った方がいい。
0095デフォルトの名無しさん2016/05/02(月) 18:46:14.55ID:8Cx+VcMT
>>92
Excelのバージョンの問題ですね
0096デフォルトの名無しさん2016/05/02(月) 18:58:03.00ID:rgztSLD4
>>84
＞>>83
＞Variant型はハグの元

今後可愛い女性に対してなら必ず使わせてもらおう
男が使ったら顔の形が分からなくなるくらいまでぶん殴るかも知れない
0097デフォルトの名無しさん2016/05/02(月) 20:02:50.58ID:xcJ43A0J
>>94
これかな

試しにループ除いて、2,3秒待ってからクリックするようしてみたらできないか？
0098デフォルトの名無しさん2016/05/02(月) 20:53:03.32ID:Xt0DxDQ3
高度なことがしたくて
Visual Basic
Visual C#
の2つを平行で勉強はじめたけどそっくりすぎやしないか？
これどっちか1つにしぼるとしたらどっちがいい？
0099デフォルトの名無しさん2016/05/02(月) 20:57:35.14ID:xZrjNArl
なぜここで聞く
0100デフォルトの名無しさん2016/05/02(月) 21:08:12.40ID:3bYl7aeD
>>98
そんなのVBAに決まってるだろ
0101922016/05/02(月) 21:08:53.84ID:qnyBKwLu
>>93-95,>>97
レスありがとうございました。ちなみにExcelのバージョンは2016です。
調べてみたら、確かに94氏の言う通り、objIE.document.ReadyState = "Complete"
のループを追加しないとエラーの原因になるんですね。一定時間が経過してから
上記を追加して検証してみます。ありがとうございました。
0102デフォルトの名無しさん2016/05/02(月) 21:22:28.55ID:4tcpikla
>>98
勉強したらオレにLINQを教えてくれ
0103デフォルトの名無しさん2016/05/02(月) 21:55:58.22ID:l4EfLYgv
高度なことってなんだよ
CかC++をやれよ高度だぞ
0104デフォルトの名無しさん2016/05/02(月) 22:00:15.92ID:4tcpikla
C#の方がモテる
0105デフォルトの名無しさん2016/05/02(月) 22:06:27.11ID:RcDnq76T
よし！C#を勉強しよう！
0106デフォルトの名無しさん2016/05/02(月) 22:48:52.56ID:RnthQ0WY
.netでエクセルは茨の道やで
0107デフォルトの名無しさん2016/05/02(月) 23:57:45.81ID:xuf7icL/
どこの現場いってもExcel仕事ばっか。
俺はプログラマだっての。
0108デフォルトの名無しさん2016/05/02(月) 23:58:44.90ID:4tcpikla
俺が若い頃はさー、VBAの貧弱な言語機能を補うためにライブラリを書いて配布して文句言われて一つ一つ苦労してデバッグしたりとかさー、
そういう苦労が山ほどあったわけよー、分かる？ それを今は .Net連携だとかで済ますっていうのがさー、心がこもってないっていうかさー
0109デフォルトの名無しさん2016/05/03(火) 00:04:12.47ID:VOABePut
しょうがねぇからpaizaにVBAの実務経験入れようとしたら、
プログラム言語とみなされてなかった。死にたい。
0110デフォルトの名無しさん2016/05/03(火) 04:29:40.49ID:K2cMa6s9
EXCELてvb.netが組み込まれてればいいのに
0111デフォルトの名無しさん2016/05/03(火) 06:21:01.33ID:m0WSkRh/
>>106
確かに
仕方なく vbs でやってたけど最近 PowerShell の方が楽だと気づいた
0112デフォルトの名無しさん2016/05/03(火) 08:57:22.05ID:+0pS9A2f
>>98
多分VBから入ってObject指向の考え方を押さえてからC#の文法を押さえるといいかも

VBAやってる人がいきなり考え方も文法も違うのをやるとかえってキツいかもよ
0113デフォルトの名無しさん2016/05/03(火) 09:43:53.02ID:yyfQ64gm
VBAは.NETと混同される事が多い。
0114デフォルトの名無しさん2016/05/03(火) 11:50:04.12ID:WpiLU58G
エクセル2013だけど、グループボックスに表示されている文字の
大きさや色を変えることはできないですか？
0115デフォルトの名無しさん2016/05/03(火) 12:23:18.09ID:F7Orkgnr
>>111
いやそれやったらvbsのが楽や言っとんのやでｗ
0116デフォルトの名無しさん2016/05/03(火) 12:37:00.12ID:TF5VRcqZ
>>109
COBOLはあるのになｗ
0117デフォルトの名無しさん2016/05/03(火) 12:49:05.33ID:IJoN7jmc
X vbsのが
O vbsの方が
O vbsが

日本語は正確にね。
0118デフォルトの名無しさん2016/05/03(火) 13:09:39.65ID:TF5VRcqZ
>>117
関西弁であること自体はスルーなのか？
0119デフォルトの名無しさん2016/05/03(火) 19:29:08.93ID:G9XEXQGe
匿名通信（Tor、i2p等）ができるファイル共有ソフトBitComet（ビットコメット）みたいな、
BitTorrent（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:TF5VRcqZ
マルチ死ね
0121デフォルトの名無しさん2016/05/03(火) 21:52:26.24ID:yyfQ64gm
VBAで通信・・・地獄かな？
0122デフォルトの名無しさん2016/05/03(火) 21:55:40.94ID:H0kUs87y
色んなところで見るけどマジもののキチガイっぽくて怖い
0123デフォルトの名無しさん2016/05/04(水) 07:47:26.67ID:699UW8S3
Vbaでバージョン管理ってどうやるんです？
0124デフォルトの名無しさん2016/05/04(水) 09:51:25.99ID:PaYYDWD9
Public Cosnt Version = "x.xx"
0125デフォルトの名無しさん2016/05/04(水) 12:09:43.80ID:v4t0cuU7
>>123
普通にモジュール単位でGitとかで？
0126デフォルトの名無しさん2016/05/04(水) 12:20:35.13ID:oenZgVkw
ファイル名に日付でええやん
それで困るようなマクロ作ってるとしたら、その方が大問題やで
0127デフォルトの名無しさん2016/05/04(水) 13:17:25.90ID:6R2nO+Ch
>>126
うーん、君はプログラマなのか、それともVBAジジイなのかどちらなのかな
0128デフォルトの名無しさん2016/05/04(水) 15:49:03.52ID:kgGBLx4K
A1に　AA1へ、B1に　BB1へジャンプするボタンを作成したいです。
マクロお願いします。
0129デフォルトの名無しさん2016/05/04(水) 16:34:05.11ID:vhNrbATP
>>128
ボタンの作成もVBAでってことよね？
各セルのサイズのボタンでいいのね？
0130デフォルトの名無しさん2016/05/04(水) 20:47:54.52ID:kgGBLx4K
>>129
よろしくお願いします！
0131デフォルトの名無しさん2016/05/04(水) 21:28:07.96ID:RttM+uYJ
>>128
「ハイパーリンクを追加」
0132デフォルトの名無しさん2016/05/04(水) 21:53:24.10ID:Z9f5Mv8i
>>127
なんやVBAジジイて？俺はハゲとらんで
0133デフォルトの名無しさん2016/05/04(水) 23:57:31.15ID:UxdZjK7v
あ
0134デフォルトの名無しさん2016/05/05(木) 00:07:18.30ID:MXj1Omkp
>>128
'***通常公開マクロ(ボタン作成用なのでボタン追加後不要なら消してもいい)
'指定位置に指定範囲へのジャンプボタンを作成
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
おみくじ 0953　大吉　→ 　♒ 水瓶座
....　　　　　　　　吉　 　→ 　♌ 獅子座　♍ 乙女座
....　　　　　　　　中吉　→ 　♎ 天秤座
....　　　　　　　　小吉　→ 　♈ 牡羊座　♉ 牡牛座　♊ 双子座　♑ 山羊座
....　　　　　　　　末吉　→ 　♋ 蟹座　 　♐ 射手座　♓ 魚座　
....　　　　　　　　凶　 　→
....　　　　　　　　大凶　→ 　♏ 蠍座　
0136デフォルトの名無しさん2016/05/06(金) 12:27:37.21ID:9WuDa+H7
新書版のVBA入門書って意識高い系なの？
0137デフォルトの名無しさん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:WGsHbg0z
全文検索したくなる時点で、「書籍」としては三級品だがな
0143デフォルトの名無しさん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+q
電子書籍って恥じらいながらちんこしゃぶってくれたりするんか？
0146デフォルトの名無しさん2016/05/07(土) 00:37:16.06ID:znoXDAwn
スレチなのでスルーで
0147デフォルトの名無しさん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:1wAcRjrQ
入門書がどうのこうのって話から始まったのに。全文検索が必要な本ってその次のレベルだろ。
0150デフォルトの名無しさん2016/05/07(土) 11:15:06.02ID:RCS6miPN
両方利点があるに決まっとる
0151デフォルトの名無しさん2016/05/07(土) 11:42:59.57ID:98qiMegf
書籍という形態がもう古い
プレゼンスライドのように短時間で要点を得る事が出来る媒体が現代的
0152デフォルトの名無しさん2016/05/07(土) 11:48:35.34ID:Nq/4SgpV
どういう知識なんだそれ
0153デフォルトの名無しさん2016/05/07(土) 11:53:03.45ID:8kiHQWJT
さすがエクセルVBAの達人だけあってどれもこれもピントがずれたレスばかりだなw
0154デフォルトの名無しさん2016/05/07(土) 15:00:10.35ID:1wAcRjrQ
>>153
んじゃ、ここでピントの合ったレスをID:8kiHQWJTがどうぞ
0155デフォルトの名無しさん2016/05/07(土) 15:35:39.10ID:nzotyd+v
プロならMSDNやオンラインヘルプだけで十分
紙だろうが電子だろうが書籍の出番なし
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
>>155
ドン引き
0159デフォルトの名無しさん2016/05/07(土) 17:49:10.43ID:1Difn6h5
プロのくせに独力解決できず、オンラインでヘルプミーするとかどうよ
0160デフォルトの名無しさん2016/05/07(土) 18:04:13.20ID:QutgNX3W
>>156
Office 2013 VBA用オフライン ヘルプ ファイルが欲しい場合〜開発時に役立ちます！ - 元「なんでもエンジニ屋」のダメ日記
http://nasunoblog.blogspot.jp/2013/11/office-2013-vba.html

これではダメ？
0161デフォルトの名無しさん2016/05/07(土) 22:11:16.28ID:sN4H5bv9
>>159
出ていってくれ
0162デフォルトの名無しさん2016/05/08(日) 00:54:50.32ID:ikF8GjeW
>>160それ英語版や〜ん
0163デフォルトの名無しさん2016/05/08(日) 01:10:44.31ID:HXCktBbn
えっこの程度の簡単な英語も読めなでプログラミングしてるの
日本語ヘルプなんて誤訳だらけで役に立たないのに
0164デフォルトの名無しさん2016/05/08(日) 04:17:19.71ID:ikF8GjeW
じゃぁさ、>>163の文章を英語で書いてみてよ？！
0165デフォルトの名無しさん2016/05/08(日) 06:04:10.40ID:d67L2ADZ
書いてみてよだって　ﾌﾟﾌﾟ
0166デフォルトの名無しさん2016/05/08(日) 08:58:00.55ID:7UXL6x+W
Oh, English with this easy degree can also be read, and is it being stroked and programed?
Japanese help isn't useful full of mistranslation.
0167デフォルトの名無しさん2016/05/08(日) 09:40:20.29ID:cY3IZjLs
Hey, you dare work on programming
with 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 を文頭につけたがる
こなれた感を必死に出そうとして滑稽
Oh 坊やと英語板では呼ばれている
0169デフォルトの名無しさん2016/05/08(日) 10:45:47.51ID:NRyLEpvc
>>166
>>168
ですってyo
0170デフォルトの名無しさん2016/05/08(日) 11:33:31.06ID:rP7gnQo6
CellのメンバーであるFormulaについて調べようと思って英語の記事読んでたら
最後の方で「セルに書く方の関数の事やんけ！」ってなった事はある。
0171デフォルトの名無しさん2016/05/08(日) 11:35:57.16ID:7UXL6x+W
>>168
文句はエキサイト翻訳に言えばいいと思うよ...

恥ずかしい奴 w
0172デフォルトの名無しさん2016/05/08(日) 13:08:20.31ID:cY3IZjLs
>>171
Hey, 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:QvSZMceu
いきなり質問で申し訳無いのですが、
With Sheet3
Sheet1.Range(
0175デフォルトの名無しさん2016/05/08(日) 14:30:54.84ID:QvSZMceu
いきなり質問で申し訳無いのですが、
With 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:QvSZMceu
Rntire⇒Entire　です。失礼しました。
0177デフォルトの名無しさん2016/05/08(日) 14:36:08.66ID:ZUgYOGn0
>>173
インデックス[0〜n-1]の配列をプロパティ順にソートしておく。
対象のクラスオブジェクトの配列を、先ほど作っておいたインデックスに沿ってpermutateする。
0178デフォルトの名無しさん2016/05/08(日) 15:05:36.92ID:E74hVYZW
>>173
シートにインスタンスオブジェクトを識別するIDと
プロパティをA列、B列に入力して
プロパティの列目でソートする
ID列の値でアクセスする

インスタンスオブジェクトはdictionaryに格納してIDをキーにしておく
0179デフォルトの名無しさん2016/05/08(日) 15:08:58.84ID:E74hVYZW
>>175
if文で比較して違ったらrange.interior.colorプロパティを変えるとか

書き方が判らないのはマクロを記録してみたら判ると思うけど？
0180デフォルトの名無しさん2016/05/08(日) 15:12:38.09ID:rP7gnQo6
>>173
Sub 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
>>175
おそらく
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
>>180
ありがとうございます。

Sub Test(Sheet1, Sheet2, Sheet3)
の部分は、シート名をいれるのでしょうか？
0183デフォルトの名無しさん2016/05/08(日) 15:47:12.37ID:rP7gnQo6
>>182
Worksheetオブジェクトを入れる。
■ このスレッドは過去ログ倉庫に格納されています