彰化一整天的論壇

 找回密碼
 立即註冊
查看: 470|回復: 4

請問填顏色的巨集

[複製鏈接]
發表於 2018-8-23 14:46:27 | 顯示全部樓層 |閱讀模式
老師
您上次教過把範圍 寫入儲存格裡 這樣寫巨集 就不用一直去改編輯器  非常好用
我將其運用於力另一個方面  有卡關  可否請老師解惑?
需求
1. 儲存格 AB18..AG18 為對應色碼 並劃上粗黑線  
2. 儲存格 AB27..AG27 為對應色碼 並劃上粗黑線
3. 儲存格 T31..AA31 為對應色碼 並劃上粗黑線
4. 儲存格 A35..S35 為對應色碼 並劃上粗黑線
5. 儲存格 T41..AA41 為對應色碼 並劃上粗黑線
6. 儲存格 AB18..AG22 為對應色碼 並劃上粗黑線
***其中儲存格內容會變化
***不一定是6個程序 或3-5個程序
問題
1.若有重複顏色 不會成功
2.若處理程序少於6次 不會成功

可否請老師解惑?

color.xls

55 KB, 下載次數: 40

回復

使用道具 舉報

發表於 2018-8-24 16:56:13 | 顯示全部樓層
可以用圖說明您想做的規則嗎?
回復 支持 反對

使用道具 舉報

 樓主| 發表於 2018-8-27 09:01:11 | 顯示全部樓層
謝謝老師  我重新修正了檔案
1. 作業前是很基本的表格
2. 希望執行了巨集後  會依照DF6..DJ11 的程序 化處顏色及黑線  如工作表2 color-V1.xls (72.5 KB, 下載次數: 41)
回復 支持 反對

使用道具 舉報

發表於 2018-8-27 10:42:55 | 顯示全部樓層
jasminejeng 發表於 2018-8-27 09:01
謝謝老師  我重新修正了檔案
1. 作業前是很基本的表格
2. 希望執行了巨集後  會依照DF6..DJ11 的程序 化處 ...

您的範圍寫固定了,所以才會只有前3次的範圍.我幫您修正了.
下次程式碼請用tab鍵內縮,像我這次這樣,別人才方便幫您除錯.
  1. Sub 補顏色_修正後()

  2.     '下次要用tab做內縮,如下面程式碼
  3.    
  4.     For i = 1 To 100
  5.         
  6.         Range("DF5").Offset(i, 0).Select
  7.         If ActiveCell.Value = "粉" Then
  8.             temp = Range("DG6").Value
  9.             
  10.             With Range(temp).Interior
  11.                 .ColorIndex = 38
  12.                 .Pattern = xlSolid
  13.             End With
  14.         End If
  15.               
  16.          
  17.         If ActiveCell.Value = "膚" Then
  18.             temp = ActiveCell.Offset(0, 1).Value
  19.             With Range(temp).Interior
  20.                 .ColorIndex = 40
  21.                 .Pattern = xlSolid
  22.             End With
  23.         End If
  24.       
  25.         If ActiveCell.Value = "藍" Then
  26.             temp = ActiveCell.Offset(0, 1).Value
  27.             With Range(temp).Interior
  28.                 .ColorIndex = 37
  29.                 .Pattern = xlSolid
  30.             End With
  31.         End If
  32.       
  33.         If ActiveCell.Value = "粉" Then
  34.             temp = ActiveCell.Offset(0, 1).Value
  35.             With Range(temp).Interior
  36.                 .ColorIndex = 38
  37.                 .Pattern = xlSolid
  38.             End With
  39.         End If
  40.            
  41.   Next i
  42.       
  43.   Range("DF6").Select

  44. End Sub
複製代碼


color-V1.xls

81 KB, 下載次數: 2

售價: 2 金錢  [記錄]

回復 支持 反對

使用道具 舉報

 樓主| 發表於 2018-8-27 15:11:17 | 顯示全部樓層
真的解決了 謝謝老師指導
回復 支持 反對

使用道具 舉報

您需要登錄後才可以回帖 登錄 | 立即註冊

本版積分規則

 ㄚ母滴雞湯
 員林香純滴雞精

Archiver|手機版|小黑屋|彰化一整天的論壇(Excel,Office)  

GMT+8, 2019-12-9 15:10 , Processed in 0.148342 second(s), 22 queries .

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回復 返回頂部 返回列表