返回列表 上一主題 發帖

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

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

本帖最後由 hank10459 於 2014-3-3 12:07 編輯

各位 EXCEL神人您好,想請問我現在做這個圖,如果分為2個活頁(03BAY與04(05)BAY),當04BAY有資料時,03BAY的對應位置變成打一個大叉叉,不知有無高手有無辦法可用呢? 如果有看不懂得小弟會再多做說明。 謝謝
如圖為我想變成的這樣。

Q1.gif (24.94 KB)

Q1.gif

好難喔
不知道如何解決
有神人嗎

TOP

回復 15# seer_et
不客氣, 該謝謝版大.

TOP

回復 14# yen956

也謝謝你的說明,學到了。

TOP

本帖最後由 yen956 於 2014-3-6 09:48 編輯

回復 10# Hsieh
謝謝回覆與指導,
終於知道 Dim r& = Dim r as long, 謝謝!!
又, 試了好久, 也終於知道:
'.Borders(i) 畫邊框的參數
'i = 1 → 左
'i = 2 → 右
'i = 3 → 上
'i = 4 → 下
'i = 5 → 左上到右下
'i = 6 → 左下到右上
      For i = 5 To 6
           With .Borders(i)
                 .LineStyle = xlContinuous
           End With
     Next
的意思, 謝謝!!

TOP

學海無涯_不恥下問

TOP

回復 10# Hsieh
大大你好:
    Dim r&, k&, i%
請問 資料型態 & 代表什麼? 謝謝!!
站內,站外均已搜尋過了, ...
(我知道 % 代表整數)

TOP

回復 10# Hsieh
大大的VBA真神奇, 先收下慢慢研究啦, 謝謝!!

TOP

回復 5# hank10459
格式化條件是無法控制斜線的格線
既然用VBA輔助,可以簡單一點
03BAY工作表模組程式碼
  1. Private Sub Worksheet_Activate()
  2. Dim r&, k&, i%
  3. With Sheets("(04)05BAY")
  4. For k = 3 To 33 Step 3 'C欄到AG欄,間隔3欄循環
  5.    For r = 4 To 26 Step 3 '第4列到26列,間隔3列循環
  6.       If Application.CountA(.Cells(r, k).Resize(3, 3)) = 7 Then '如果全部填滿
  7.          With Cells(r, k).Resize(3, 3)
  8.             .Merge '合併儲存格
  9.             For i = 5 To 6
  10.                With .Borders(i) '畫斜線
  11.                   .LineStyle = xlContinuous
  12.                End With
  13.             Next
  14.           End With
  15.           Else '否則執行複製貼上、清除內容
  16.           .Cells(r, k).Resize(3, 3).Copy Cells(r, k): Cells(r, k).Resize(3, 3) = ""
  17.        End If
  18.     Next
  19. Next
  20. End With
  21. End Sub
複製代碼
學海無涯_不恥下問

TOP

回復 8# sunnyso


    收到了S大。謝謝您的提供。

TOP

        靜思自在 : 看別人不順眼,是自己修養不夠。
返回列表 上一主題