GBKEE

回復 72# c_c_lai
.Rows(xlRow).Delete
是在寫這程式時沒注意到同 一車號會有一筆資料以上所以只刪一行
http://forum.twbts.com/viewthread.php?tid=8048&rpid=45188&ordertype=0&page=1#pid45188
這裡已修改可刪多行
.Cells.SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants).Offset(2).Delete xlUp

c_c_lai

回復 73# GBKEE
因為我非正科班出身，這行語法內的 Offset(2) 指的是？
是從第一列起算之下兩行 (即第三列) 起刪除，還是？
如果他有三列以上吻合條件的資料項又是如何處理？

c_c_lai

回復 75# GBKEE
我再次重新 DEBUG 一次，結果是：

下載 (27.73 KB)

2012-10-16 10:51

雖然在實務上我知道要如何處哩，但人活著就是要多多學習，
不熟悉的語法要深切去瞭解，不是嘛？

devidlin

回復 69# GBKEE


    請問c大，此excel檔，可以打包成一個執行檔來用嗎?   謝謝。

GBKEE

回復 76# devidlin
那要在VB 中製成
取巧方式: 執行此檔案後, 可如  59# 的圖片 另開Excel程式,執行其他Excel活頁簿 .

devidlin

回復 77# GBKEE


    G大你好，可以試做1個範例來參考嗎?謝謝。

GBKEE

回復 78# devidlin
依55# 的附檔 很簡單的自己練習看看,
表單要先弄好的,將程式碼更新為如下,存檔後再開啟看看.
ThisWorkbook程式碼

1. Dim AA As New Application   '新的Excel 物件
   
2. Sub Workbook_Open()
   
3.     Application.Visible = False
   
4.     With AA
   
5.         .Visible = True
   
6.         .WindowState = xlNormal
   
7.         .Left = 242
   
8.         .Top = 59
   
9.         .Width = 648
   
10.         .Height = 401
    
11.     End With
    
12.     UserForm1.Show
    
13. End Sub

複製代碼

UserForm(表單)程式碼

1. Dim Msg As Boolean
   
2. Private Sub UserForm_Initialize()   'UserForm(表單) 初始化時的事件程序
   
3.     '請先在UserForm(表單) 加入4個 Label控制項
   
4.     '系統自動命名(Label1, Label2 , Label3 , Label4)
   
5.     '請自行調整 4個 Label控制項 的位置,長,寬,高
   
6.     Dim i As Integer
   
7.     StartUpPosition = 0
   
8.     Top = 1
   
9.     For i = 1 To 4
   
10.         With Me.Controls("Label" & i)
    
11.             .TextAlign = 1 ' fmTextAlignCenter
    
12.             .Font.Bold = True
    
13.             .Font.Size = 15
    
14.             .SpecialEffect = fmSpecialEffectEtched
    
15.         End With
    
16.     Next
    
17. End Sub
    
18. Private Sub UserForm_Activate()       'UserForm(表單) 顯示時的事件程序
    
19.     Dim xlTile As String, S As String
    
20.     S = Space(5)
    
21.     Do Until Msg = True
    
22.         DoEvents
    
23.         If Time < #8:00:00 AM# Then
    
24.             xlTile = "尚未開盤"
    
25.         ElseIf Time > #1:30:00 PM# Then
    
26.             xlTile = "已收盤"
    
27.         Else
    
28.             xlTile = "營業中"
    
29.         End If
    
30.         If Not Msg Then Caption = Format(Now, "Dddddd ttttt ") & xlTile
    
31.         If xlTile <> "尚未開盤" Then
    
32.             Label1.Caption = S & [sheet1!K1] & S & [ROUND(sheet1!K2,3)]
    
33.             Label2.Caption = S & [sheet1!L1] & S & [ROUND(sheet1!L2,3)]
    
34.             Label3.Caption = S & [sheet1!M1] & S & [ROUND(sheet1!M2,3)]
    
35.             Label4.Caption = S & [sheet1!N1] & S & [ROUND(sheet1!N2,3)]
    
36.         End If
    
37.     Loop
    
38. End Sub
    
39. Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) 'UserForm(表單) 關閉時的事件程序
    
40.     Msg = True
    
41.     Application.Visible = True
    
42.     ThisWorkbook.Save
    
43.     Application.Quit
    
44. End Sub

複製代碼

devidlin

回復 79# GBKEE


    G大你好，我想大大好人做到底，幫忙用vb打包一下，因小地手邊沒有Visual Basic可以嗎?     謝 謝。

GBKEE

回復 80# devidlin
它還是Excel 檔案


test.rar (19.99 KB)

下載次數: 49

2012-10-16 20:33

c_c_lai

回復 81# GBKEE
表單 (UserForm) 開啟後，是無法再開啟其它 Excel 工作表單的，
所以之前我才會建議使用其它程式工具來解決此困擾問題。