Results of 1 - 1 of about 406 for kazu 条件付書式 (0.004 sec.)
kazu (7738), 条件付書式 (2649)
- [[20070424150030]]
- #score: 6689
- @digest: 55614d0be2c64284583a0df45072fd47
- @id: 30383
- @mdate: 2007-04-25T07:21:16Z
- @size: 1526
- @type: text/plain
- #keywords: 右斜 (5627), 囲if (3237), 出題 (2486), 様教 (2338), 式ht (2142), 罫線 (1887), xldiagonalup (1859), 期状 (1801), 右横 (1573), linestyle (1565), 斜め (1267), ‾‾‾‾ (1041), xlcontinuous (992), 件以 (946), e2qw (944), ohagi (781), の罫 (780), 条件 (632), borders (631), intersect (605), 付書 (571), 件付 (559), トタ (549), 適用 (416), 記コ (411), 初期 (381), 書式 (353), 線を (349), target (325), nothing (322), rng (267), 右ク (223)
- 『罫線』（なぞ）
度々お世話になります。 セルに特定の文字を入力すると右横のセルに自動で罫線をひけるようにとかならないですよね? ---- 条件つき書式ではいかがですか? （e2qw）条件付き書式 http://www.excel.studio-kazu.jp/lib/e2qw/e2qw.html (Ohagi) ---- >・・・とかならないですよね? ‾‾‾‾ 出来ないと思われるのなら出題しなければ いいのでは? （ふふ） ---- ohagi様 ありがとうございました ---- ohagi様 教えて頂いたとおりやってみたのですが、罫線の右斜め?はできませんでした。 / ←こういうのです。 これ以上てはないものですか? ---- 条件付書式では斜めの罫線は無理みたいですね。 シートタブを右クリックし、コードの表示を選択。 出てきた画面に下記コードをコピペして閉じる。 条件が分からないため、とりあえず範囲を「A1:A10」とし、 条件は「1」が入力されたらということにしています。 (ROUGE) '---- Private Sub Worksheet_Change(ByVal Target As Range) Dim rng As Range, r As Range Set rng = Range("A1:A10") '<--適用したい範囲 If Intersect(Target, rng) Is Nothing Then Exit Sub For Each r In Intersect(Target, rng) With r.Offset(, 1).Borders(xlDiagonalUp) If r.Value = 1 Then '<--条件を入れる .LineStyle = xlContinuous Else .LineStyle = xlNone End If End With Next Set rng = Nothing End Sub ---- 初期状態で斜めの罫線を設定して条件付書式で条件以外は罫線なしにすればできると思います。 (Breka)... - http://www.excel.studio-kazu.jp/wiki/kazuwiki/200704/20070424150030.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97017 documents and 608140 words.
訪問者：