PCDVD數位科技討論區
PCDVD數位科技討論區   註冊 常見問題 標記討論區為已讀

回到   PCDVD數位科技討論區 > 其他群組 > 疑難雜症區
帳戶
密碼
 

回應
 
主題工具
fashionkid
Regular Member
 

加入日期: Jan 2002
文章: 64
Question [請益]這段如何改成VBA碼


A欄是抓取住家電話或手機末5碼作為編號,
寫入公式
=IF(ISBLANK(資料!C3),IF(ISBLANK(資料!D3),"",RIGHT((資料!D3),5)),RIGHT((資料!C3),5))
想改寫成VBA, 無奈對VBA一竅不通。上來請教各位
~~~~萬分感謝~~~
     
      
舊 2012-10-28, 11:33 PM #1
回應時引用此文章
fashionkid離線中  
rockjimmy
*停權中*
 

加入日期: Feb 2004
文章: 2,909
FOR I = 1 to 100
編號= CELLS(I,3)
IF 編號="" THEN
編號= CELLS(I,4)
END IF
CELLS(I,1)= RIGHT(編號,5)
NEXT I


=================================
大概隨便寫一下
可能有錯誤
差不多就樣吧= =a
 
舊 2012-11-03, 01:23 AM #2
回應時引用此文章
rockjimmy離線中  
ccx1103
Regular Member
 

加入日期: Aug 2005
文章: 72
公式可以解決的問題,應該使用公式。
VBA沒有比較聰明。

Sub xxx()

Set currgn = ActiveCell.CurrentRegion
Set c = currgn.Find("*姓*名*")
If Not c Is Nothing Then
Range(c.Address).Offset(1, 0).Select
Else
Exit Sub
End If

While ActiveCell.Value <> ""
If ActiveCell.Offset(0, 1).Value <> "" Then
ActiveCell.Offset(0, -1).Value = Right(ActiveCell.Offset(0, 1).Value, 5)
End If

If ActiveCell.Offset(0, 2).Value <> "" Then
ActiveCell.Offset(0, -1).Value = Right(ActiveCell.Offset(0, 2).Value, 5)
End If

ActiveCell.Offset(1, 0).Select
Wend

End Sub

此文章於 2012-11-03 02:47 PM 被 ccx1103 編輯.
舊 2012-11-03, 02:45 PM #3
回應時引用此文章
ccx1103離線中  


回應


POPIN
主題工具

發表文章規則
不可以發起新主題
不可以回應主題
不可以上傳附加檔案
不可以編輯您的文章

vB 代碼打開
[IMG]代碼打開
HTML代碼關閉



所有的時間均為GMT +8。 現在的時間是12:23 PM.


vBulletin Version 3.0.1
powered_by_vbulletin 2025。