[過去ﾛｸﾞ] Excel総合相談所 136 (1002ﾚｽ)
上下前次1-新
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
672: 2019/09/14(土)13:54 AAS
>>671
地域別で見られるようにしたのがシート2なら俺にはそれが地域別だと思えるが別に好きにすりゃいいんじゃね
673(1): 2019/09/14(土)13:54 AAS
Ｐ列でセル中に"標準価格"という文字列が含まれていない行を削除
をＶＢＡでおしえてください
674: 2019/09/14(土)14:23 AAS
>>673
AutoFilterで "<>*標準価格}*" の条件で絞って一括削除とか、
if not セル文字列 like "*標準価格*" then 行削除 を削除したい範囲分回すとか
行数大量なら前者
675: 2019/09/14(土)14:24 AAS
} はただの入力ミス
676(2): 2019/09/14(土)22:37 AAS
Ｅ列〜Ｚ列で１行目以外（２行目以降）で空白セルしかない列を削除するコードを教えてくださいm(_ _)m
677(1): 2019/09/14(土)23:53 AAS
E-Zの1行目は必ずなにかはいってるの？
678(1): 2019/09/14(土)23:53 AAS
>>676
For i = Columns("E").Column to Columns("Z").Column
If WorksheetFunction.CountA(Range(Cells(2, i), Cells(10, i))) = 0 then Columns(i).Delete
Next
679(1): 2019/09/14(土)23:59 AAS
右列から消していかないとダメなやつじゃないの
680(1): 676 2019/09/15(日)00:06 AAS
>>677
１行目は必ず入っています。
>>678
ありがとうございますm(_ _)m
681(1): 2019/09/15(日)00:17 AAS
マクロで、例えば
「Z55に"X"が入っていたらF55とG55のセルを黄色く塗りつぶす」
とか
「AD6に"X"が入っていたらY6を黄色く塗りつぶす」
をする書き方をお教えください
682: 2019/09/15(日)00:21 AAS
>>679
うっかりしてた、Forのとこ逆だな
>>680
For i = Columns("Z").Column to Columns("E").Column Step -1
683(1): 2019/09/15(日)00:23 AAS
>>681
条件付き書式では駄目なのか
684: 2019/09/15(日)01:16 AAS
Columns("Z").ColumnはCells(,"Z").Columnとも書ける
1文字しか減らないけど、よく似た単語の連続よりは読みやすいと個人的に思って愛用してる
685(3): 2019/09/15(日)01:43 AAS
>>683
あとで、"X"は消してしまうので、条件付き書式では"X"を消した後に色も元に戻ってしまいます
686(1): 2019/09/15(日)01:44 AAS
Columns("Z")の方が明確だろｗ
まぁ俺はRange("Z:Z")派だけどな
687(1): 2019/09/15(日)08:12 AAS
if [z55]="X" then
[f55:g55].interior.color =rgb(255,255,0)
end if
688(2): 2019/09/15(日)09:14 AAS
複数選択しているセル範囲のアドレスを
A1:A2,B3:B4,C5:C6のようにカンマ繋ぎで取得するコードを教えてください
689: 2019/09/15(日)09:17 AAS
>>671
シート１はフィルタかけたまま放置？
そうでもない限り、シート名はフィルタをかける前の状態をもとにするのがセオリーでしょ
690(3): 2019/09/15(日)09:22 AAS
>>688
今手元にExcel無いから確認できないけど、selection.address(false,false)じゃ無理？
691(1): 2019/09/15(日)09:23 AAS
>>688
試せないけどselection.addressでだめ？
だめなら
https://www.relief.jp/docs/excel-vba-range-areas-property.html
上下前次1-新書関写板覧索設栞歴
あと 311 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 1.696s*