返回列表 上一主題 發帖

請問sheet 欄位轉換問題

請問sheet 欄位轉換問題

1.請問我想從a sheet轉換b sheet
2.在b sheet完成時間對照有ok就能讓a sheet的對應欄位反顏色

sheet 欄位轉換.rar (12.42 KB)

Tony

回復 1# tonycho33


    sheet 欄位轉換.zip (11.4 KB)

TOP

回復 1# tonycho33
  1. Sub 轉置()
  2. Dim A As Range, Ar(), Ay(), i%, j%, Ary(), s&
  3. With Sheets("a")
  4. For Each A In .Range("A2", .Cells(.Rows.Count, 1).End(xlUp)).SpecialCells(xlCellTypeConstants)
  5. Ar = A.Resize(, 4)
  6. Ay = .Range(A.Offset(, 6), A.Offset(, 6).End(xlToRight).Offset(2)).Value
  7. For i = 1 To UBound(Ay, 2)
  8. ReDim Preserve Ary(7, s)
  9. Ary(0, s) = Ar(1, 1): Ary(1, s) = Ar(1, 2): Ary(6, s) = Ar(1, 4)
  10.    For j = 1 To UBound(Ay, 1)
  11.    Ary(j + 1, s) = Ay(j, i)
  12.    Next
  13.    s = s + 1
  14. Next
  15. Next
  16. End With
  17. Sheets("b").UsedRange.Offset(1) = ""
  18. Sheets("b").[A2].Resize(s, 7) = Application.Transpose(Ary)
  19. End Sub
複製代碼
sheet 欄位轉換.rar (11.01 KB)
學海無涯_不恥下問

TOP

請問輸入『ok』,自動反紅是怎麼設定的
謝謝
Tony

TOP

回復 4# tonycho33


    選儲存格
   格式/設定格式化條件

TOP

請問欄位轉換的VBA程式可以解釋一下嗎?太複雜看不大懂
另外a sheet 欄位都是固定的(4欄),如果是不規則的可以用嗎(例如:3~15欄)
另外,如果在新增資料的話(目前工單3筆,後續再增加的話)是否也可以用呢
謝謝
Tony

TOP

回復 5# register313


利用格式化來處理儲存格的顏色,每個儲存格都設定的話,如果有一百多列,跑起來好像會變慢,有辦法只單純使用VBA嗎
Tony

TOP

回復 7# tonycho33

  工作表使用之公式函數愈多 當然計算會需要一點時間(一百多列其實計算時間應不會太久才對)
也可考慮使用Hsieh超級版主的巨集程式
先自己操作看看 有問題再向Hsieh超級版主請教

TOP

回復 3# Hsieh

你好
請問使用格式化條件的部份,執行下來變得很慢
連捲動捲軸都要等很久
有辦法改成全部都是vba嗎
謝謝
Tony

TOP

回復 9# tonycho33


    sheet 欄位轉換.rar (13.16 KB)
學海無涯_不恥下問

TOP

        靜思自在 : 自己害自己,莫過於亂發脾氣。
返回列表 上一主題