此巨集為何錯?? - Excel程式區 - 麻辣家族討論版版

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

41^# 跳轉到 »

發表於 2013-8-14 10:59 | 只看該作者

回復 40# t8899
因為我沒有你目前測試的檔案，
故無法一一推敲你的數據過程，
你是用 CStr() 還是 CSng() ?

TOP

t8899

大學生 Rank: 4

帖子: 764
主題: 254
精華: 0
積分: 1031
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2025-6-5

42^#

發表於 2013-8-14 11:46 | 只看該作者

回復 t8899
因為我沒有你目前測試的檔案，
故無法一一推敲你的數據過程，
你是用 CStr() 還是 CSng() ...
c_c_lai 發表於 2013-8-14 10:59

csng...............

TOP

t8899

大學生 Rank: 4

帖子: 764
主題: 254
精華: 0
積分: 1031
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2025-6-5

43^#

發表於 2013-8-14 19:21 | 只看該作者

回復 t8899
晤...
若是會有小數出現的數值,
那就要把 CLng( 用 CSng( 來取代就可以了.
luhpro 發表於 2013-8-13 22:30

如果輸出再增加到 sheet2 工作表的A1順序貼上
如果A1非空白，則B1 ....C1............D1
語法是?

TOP

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 0
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

44^#

發表於 2013-8-14 23:05 | 只看該作者

回復 43# t8899

Sub nn()
Dim i%
Dim lRows As Long
With Sheets("sheet2")
lRows = .Cells(Rows.Count, 1).End(xlUp).Row
.Cells(lRows + 1, 1) = Sheets("Sheet3").Cells(i + 1, 2).Value
'.
'.
'.
End With
End Sub

複製代碼

TOP

t8899

大學生 Rank: 4

帖子: 764
主題: 254
精華: 0
積分: 1031
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2025-6-5

45^#

發表於 2013-8-15 07:19 | 只看該作者

回復 t8899
luhpro 發表於 2013-8-14 23:05

謝謝您近日來熱心指導!

TOP

t8899

大學生 Rank: 4

帖子: 764
主題: 254
精華: 0
積分: 1031
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2025-6-5

46^#

發表於 2013-8-15 21:03 | 只看該作者

本帖最後由 t8899 於 2013-8-15 21:09 編輯

回復 t8899
luhpro 發表於 2013-8-14 23:05

最後一個問題
在最後輸出已達條件的對話盒後
之前符合條件的部份
將 zz之值拷到  ZZ.Offset(, 26) (已達條件的，再重新繞回來,才不會一直重覆出現)
----------------------
   Dim sStr$
Dim ZZ As Range
   sStr = ""
   sStr2 = ""
For Each ZZ In Range("c2:c111")
If Not IsError(ZZ) Then
      If Range("Q26").Value = 1 And flag = True Then
   M = Round(ZZ - ZZ.Offset(, 26), 2)
If M >= ZZ.Offset(, 2) Then
If sStr <> "" Then sStr = sStr & Chr(10)
sStr = sStr & "" & Cells(ZZ.Row, 2).Value & "=====> " & Round(ZZ - ZZ.Offset(, 26), 2)
               End If
If M <= -ZZ.Offset(, 2) Then
If sStr2 <> "" Then sStr2 = sStr2 & Chr(10)
  sStr2 = sStr2 & "" & Cells(ZZ.Row, 2).Value & "=====> " & Round(ZZ - ZZ.Offset(, 26), 2)
               End If
End If
End If
   Next
  If sStr <> "" Then
  CreateObject("Wscript.shell").Popup sStr, 4, "Auto Closed MsgBox", 64
   End If
   If sStr2 <> "" Then
  CreateObject("Wscript.shell").Popup sStr2, 4, "Auto Closed MsgBox", 64
   End If

TOP

luhpro