返回列表 上一主題 發帖

還原與備份

還原與備份

各位前輩你們好!
        前輩!問題如附檔案說明 
            請知道的前輩,不吝賜教謝謝再三!!

Leov4.rar (14.37 KB)

回復 12# GBKEE
  GBKEE前輩你好!
     良師!!歹勢啦!!是我錯囉!!對不起...
             讓你忙壞嚕!謝謝再三!!

TOP

回復 11# myleoyes
選擇編號3  的錯誤修改如下
Set F = .Rows(1).Cells.Find(.Cells(1, ActiveCell.Column), After:=.[b1])
致於 選擇編號1-2 錯誤 請看如圖 告訴我 S欄-W欄 是1 還是 2 .  是你錯還是我錯. 一定有人錯的

TOP

回復 10# GBKEE
GBKEE前輩你好!
     良師!!結果是一樣耶!
             小弟將執行的結果附檔案Leov6-2說明
                 小弟修改程式後執行的結果附檔案Leov6-3說明
                 請再辛苦囉!謝謝再三!!

Leov6-2.rar (116.53 KB)

Leov6-3.rar (114.19 KB)

TOP

回復 9# myleoyes
我執行沒有問題的 選擇那一個編號 就刪掉那一個編號的範圍沒錯
為防止錯誤修改如下
  1. Sub 刪除()
  2.     Dim F As Range, i%
  3.     If ActiveCell.Column <= 2 Then Exit Sub
  4.     With ActiveSheet
  5.         Set F = .Rows(1).Cells.Find(.Cells(1, ActiveCell.Column))
  6.         If F = "" Then Exit Sub
  7.         i = 1
  8.         Do
  9.             If F.Offset(, i) <> F Then
  10.                 Set F = .Range(F, F.Offset(, i - 1))
  11.                 Exit Do
  12.             End If
  13.             i = i + 1
  14.         Loop
  15.     End With
  16.     F.EntireColumn.Delete
  17. End Sub
複製代碼

TOP

回復 8# GBKEE
  
GBKEE前輩你好!
     良師!!程式有問題
            如附檔案說明請再辛苦囉!謝謝再三!!

Leov6-1.rar (162.18 KB)

TOP

回復 7# myleoyes
  1. Sub 刪除()
  2.     Dim F As Range, i%
  3.     With ActiveSheet
  4.         Set F = .Rows(1).Cells.Find(.Cells(1, ActiveCell.Column))
  5.         i = 1
  6.         Do
  7.             If F.Offset(, i) <> F Then
  8.                 Set F = .Range(F, F.Offset(, i - 1))
  9.                 Exit Do
  10.             End If
  11.             i = i + 1
  12.         Loop
  13.     End With
  14.     F.EntireColumn.Delete
  15. End Sub
複製代碼

TOP

回復 6# GBKEE
GBKEE前輩你好!
     良師!!不好意思請再幫忙這個刪除鈕
                  如附檔案說明請再辛苦囉!謝謝再三!!

Leov6.rar (17.66 KB)

TOP

回復 5# myleoyes
請加上紅色部分
Do While E.Offset(, i) <> ""
        If d.Exists(E.Offset(, i).Value) Then E.Offset(, i) = d(E.Offset(, i).Value) + M
        '修改複製資料後 第1列相同項目新增的數值
        '->設定複製資料內第1列相同項目的數值 + 已有備份資料中第1列內相同項目的最大數
        i = i + 1
    Loop

TOP

回復 4# GBKEE
GBKEE前輩你好!
     良師!!程式的編號有出入...
              如附檔案說明請再辛苦囉!謝謝再三!!
              晚安!!

Leov5-1.rar (19.5 KB)

TOP

        靜思自在 : 甘願做、歡喜受。
返回列表 上一主題