返回列表 上一主題 發帖

[發問] 請問有無神人可幫解決這格式化條件的問題

sunnyso

帖子
605 
主題
92 
精華
0 
積分
648 
點名
0  
作業系統
windows 
軟體版本
7 
閱讀權限
50 
性別
男 
來自
macau 
註冊時間
2013-4-5 
最後登錄
2019-2-10 

熱烈參與勳章好學求知勳章
1# 跳轉到 »
發表於 2014-3-3 15:08 | 顯示全部帖子
回復 1# hank10459

上個附件, 帶有你公式等. 我來解決X的問題
ss

TOP

sunnyso

帖子
605 
主題
92 
精華
0 
積分
648 
點名
0  
作業系統
windows 
軟體版本
7 
閱讀權限
50 
性別
男 
來自
macau 
註冊時間
2013-4-5 
最後登錄
2019-2-10 

熱烈參與勳章好學求知勳章
2#
發表於 2014-3-4 13:56 | 顯示全部帖子
Sonny.gif Q1-Sonny.rar (20.9 KB) 回復 5# hank10459
ss

TOP

sunnyso

帖子
605 
主題
92 
精華
0 
積分
648 
點名
0  
作業系統
windows 
軟體版本
7 
閱讀權限
50 
性別
男 
來自
macau 
註冊時間
2013-4-5 
最後登錄
2019-2-10 

熱烈參與勳章好學求知勳章
3#
發表於 2014-3-5 12:09 | 顯示全部帖子
回復 7# hank10459

here is the code.
  1. Private Sub Worksheet_Activate()

  3. With Sheets(2)
  4.     blnk = .[R4] <> "" Or .[R5] <> "" Or .[R6] <> "" _
  5.         Or .[S5] <> "" Or .[S6] <> "" _
  6.         Or .[T5] <> "" Or .[T6] <> ""
  7. End With


  10. If blnk Then
  11.         Range("R4:T6").Select
  12.     With Selection
  13.         .WrapText = False
  14.         .Orientation = 0
  15.         .AddIndent = False
  16.         .ShrinkToFit = False
  17.         .ReadingOrder = xlContext
  18.         .MergeCells = True
  19.     End With
  20.     With Selection.Borders(xlDiagonalDown)
  21.         .LineStyle = xlContinuous
  22.         .ColorIndex = xlAutomatic
  23.         .TintAndShade = 0
  24.         .Weight = xlMedium
  25.     End With
  26.     With Selection.Borders(xlDiagonalUp)
  27.         .LineStyle = xlContinuous
  28.         .ColorIndex = xlAutomatic
  29.         .TintAndShade = 0
  30.         .Weight = xlMedium
  31.     End With
  32.     With Selection.Borders(xlEdgeLeft)
  33.         .LineStyle = xlContinuous
  34.         .ColorIndex = xlAutomatic
  35.         .TintAndShade = 0
  36.         .Weight = xlMedium
  37.     End With
  38.     With Selection.Borders(xlEdgeTop)
  39.         .LineStyle = xlContinuous
  40.         .ColorIndex = xlAutomatic
  41.         .TintAndShade = 0
  42.         .Weight = xlMedium
  43.     End With
  44.     With Selection.Borders(xlEdgeBottom)
  45.         .LineStyle = xlContinuous
  46.         .ColorIndex = xlAutomatic
  47.         .TintAndShade = 0
  48.         .Weight = xlMedium
  49.     End With
  50.     With Selection.Borders(xlEdgeRight)
  51.         .LineStyle = xlContinuous
  52.         .ColorIndex = xlAutomatic
  53.         .TintAndShade = 0
  54.         .Weight = xlMedium
  55.     End With
  56.     Selection.Borders(xlInsideVertical).LineStyle = xlNone
  57.     Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
  58. Else
  59.     Range("O4:Q6").Select
  60.     ActiveWindow.SmallScroll Down:=-6
  61.     Selection.Copy
  62.     Range("R4").Select
  63.     Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
  64.         SkipBlanks:=False, Transpose:=False
  65.     Application.CutCopyMode = False
  66.     Range("F4:H6").Select
  67.     Selection.Copy
  68.     Range("U4:W6").Select
  69.     Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
  70.         SkipBlanks:=False, Transpose:=False
  71.     Application.CutCopyMode = False

  73. End If


  76. End Sub
複製代碼
ss

TOP

        靜思自在 : 修行要繫緣修心，藉事練心，隨處養心。
返回列表 上一主題