Results of 1 - 1 of about 1039 for オートシェイプ (0.001 sec.)
- [[20120123101851]]
- #score: 6703
- @digest: c2465da48e4c1286c5280f6c7b246815
- @id: 57386
- @mdate: 2012-01-23T04:43:19Z
- @size: 1321
- @type: text/plain
- #keywords: ェィ (13266), n180 (12932), schemecolor (8887), ィプ (8085), 2007or2003 (7748), 黒表 (6425), forecolor (5229), rectangle (4354), 更() (2440), プ名 (2351), 色変 (2317), 形1 (2190), miki (1994), 示2 (1845), シェ (1806), 記参 (1777), 白表 (1749), トシ (1743), sheetchange (1422), line (1387), 切替 (1126), 値1 (953), 角形 (931), 枠を (920), ェイ (850), 四角 (698), オー (659), イプ (630), shapes (440), テッ (402), activesheet (344), 素人 (334)
- 『条件によって色を変える』（pc123）
セル（N180）の条件によって、オートシェィプの枠の色の切替をしたいのですが、 WEBを検索してもよく分かりません、素人の説明で申し訳ありませんが、 分かる方、ご指導お願いします。 数値 1 枠を黒表示 2 枠を白表示 オートシェィプをクリックするたび、色変更（下記参照）までは、作成したのですが その次のステップが分かりません、よろしくお願いします。 Sub 色変更() With ActiveSheet.Shapes.Range(Application.Caller) Select Case .Line.ForeColor.SchemeColor Case Is = 9 .Line.ForeColor.SchemeColor = 8 Case Else .Line.ForeColor.SchemeColor = 9 End Select End With End Sub WinXP Excel(2007or2003) ---- N180セルの条件やオートシェイプ名がわからないので、 N180の値が100以上、オートシェイプ名を「Rectangle 1」（四角形1）としています。 Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) With ActiveSheet.Shapes("Rectangle 1") If Range("N180") >= 100 Then .Line.ForeColor.SchemeColor = 8 Else .Line.ForeColor.SchemeColor = 9 End If End With End Sub VBEのThisWorkbook内に入れてください。 (Miki) ---- (MiKi)さん ありがとうございます。 動きました。 コードを書いて頂いてとても助かりました。... - https://www.excel.studio-kazu.jp/wiki/kazuwiki/201201/20120123101851.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97050 documents and 608253 words.
訪問者：