Results of 1 - 1 of about 469 for EDATE (0.000 sec.)
- [[20220712165342]]
- #score: 9973
- @digest: 50254157e2abbf4ae444beef850dfb0b
- @id: 91798
- @mdate: 2022-07-12T12:26:37Z
- @size: 1826
- @type: text/plain
- #keywords: 上線 (5466), 何一 (4137), 例文 (3567), xledgetop (3060), 罫線 (1887), （テ (1630), お示 (1495), xledgebottom (1405), テス (1368), 下線 (1209), 2022 (1088), ・2 (1030), 火) (996), xlcontinuous (992), に罫 (908), 、罫 (818), ・5 (797), linestyle (782), ・・ (767), ・4 (743), ト） (656), borders (631), ・3 (601), 動記 (531), activate (526), 引く (513), 線が (464), 文を (417), スト (399), 実行 (386), 相談 (386), 覧表 (352)
- 『1が入力されているセルを含む行に罫線を引く』（テスト）
1,aaa,AA,・・・ 2,bbb,BB,・・・ 3,ccc,CC,・・・ 4,ddd,DD,・・・ 5,eee,EE,・・・ 6,fff,FF,・・・ 1,ggg,GG,・・・ 2,hhh,HH,・・・ ・・・ このような一覧表があり、A列に「1」が入力されている行の上段に罫線を引くVbaのコードを教えて下さい。 ＜ 使用 Excel:Excel2010、使用 OS:Windows7 ＞ ---- 条件付き書式で行けると思いますが、VBA でないとだめですか? VBAなら、とりあえず、罫線を引く作業の マクロの自動記録をしてみてください。 あとは条件分岐するだけなので。 （通りすがり） 2022/07/12(火) 17:06 ---- vbaでお願いします。 何度か試してみてできなかったので質問しています。 例文をお示しください。 （テスト） 2022/07/12(火) 17:22 ---- ＞例文をお示しください。 だったらVBAを示したらどうですか。 それが常識じゃないですか。 （てすとピース） 2022/07/12(火) 18:07 ---- Sub () Worksheets("sheet1").Activate For k = 1 To Cells(Rows.Count, 1).End(xlUp).Row If Cells(k, 1) = 1 Then Rows(k).Borders(xlEdgeTop).LineStyle = xlContinuous End If Next k End Sub 失礼しました。 お願いします。 （テスト） 2022/07/12(火) 18:16 ---- そのままコピペして実行してみましたが問題なく動作しました。 どういったエラーが出るのでしょうか? また、Worksheets("sheet1").Activateとなっておりますが シート名はsheet1になっていますか? （くまさん） 2022/07/12(火) 18:47 ---- シート名はダミーで入れてるだけです 実行するとエラーにはなりませんが、罫線は何一つ変わりません。 仮にxlEdgeTopではなく、xlEdgeBottomにすると下線が引かれ、問題なく実行できますが、なぜか上線が実行されません。 なぜでしょうか。 （テスト） 2022/07/12(火) 20:11 ---- 罫線の色も指定してみたらどうでしょ? 白い罫線になってるってことはないですか? （とおりすがり） 2022/07/12(火) 21:23 ---- ありがとうございます。 試してみますね。 出来なかったらまた相談します。 （テスト） 2022/07/12(火) 21:26... - http://www.excel.studio-kazu.jp/wiki/kazuwiki/202207/20220712165342.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97022 documents and 607970 words.
訪問者：