1樓：yq楊
excel vba設定用指定數字替代日期，其實就是提取後判斷處理再組合的一個過程。
vba**如下：
sub zdate()
endrow = range("a65536").end(xlup).row
for i = 1 to endrow
str1 = range("a" & i)y = mid(str1, 4, 1)
m = month(str1)
d = day(str1)
if m >= 10 then m = chr(m + 55)if d >= 10 then d = chr(d + 55)str2 = y & "-" & m & "-" & drange("b" & i) .numberformat = "@"
range("b" & i) = str2next
end sub
至於具體所需要填寫的地方就自行修改即可。
思路：1、提取年、月、日的具體資料；
2、判斷月、日的大小；
3、利用chr函式轉換成字母；
4、組合新的資料填入單元格中。
2樓：
最簡單的方法是錄製一個巨集，再進入巨集編輯器分析一下自然明白。
range("e4").select
selection.numberformatlocal = "yyyy-m-d"
e4是指定單元格的名稱。
excel中如何用vba將指定單元格設定為日期格式
3樓：匿名使用者
你這個是輸入公式的意思，設定格式要用numerformat
worksheets(p).cells(j, i).numberformat = "yyyy-m-d"
ex(2,"交貨期")這是什麼，也許是你這個錯誤
4樓：北方會員
最簡單的方法是錄製一個巨集，再進入巨集編輯器分析一下自然明白。
range("e4").select
selection.numberformatlocal = "yyyy-m-d"
e4是指定單元格的名稱。
5樓：
直接用具體的sheets(2).range("a"1).numberformatlocal = "yyyy-m-d"是可以的,你可以看你的變數是否沒設定好
excel用vba篩選數字和日期及介於某某之間
6樓：匿名使用者
**發我，並說清除要實現什麼效果，給你寫段比較高效**。
7樓：慶年工坊
其他都好辦就是同時篩選包含50到500的文字我沒辦法，另外，field:=target.column - 1 是什麼意思?篩選前一列嗎？target是a3時怎麼辦呢
excel vba中如何將日期轉換為數字進行計算？
8樓：復仇之牙
用datevalue試試
附件裡有示例
sub ff()
dim a, b, c
for i = 1 to 2
a = cells(i, 1)
b = cells(i, 2)
c = cells(i, 3)
if datevalue(c) - datevalue(a) > -1 and datevalue(c) - datevalue(b) >= 0 then
cells(i, 4) = "y"
end if
next i
end sub
excel如何使用vba判斷當前單元格的型別是日期、文字還是數字
9樓：匿名使用者
不必用vba，直接用函式：比如你需要判斷的資料在a1，可以b1輸入公式進行判斷：
判斷文字的公式：=istext(a1)
判斷數字的公式：=isnumber(a1)判斷日期的公式：=if(left(cell("format",a1))="d",if(--right(cell("format",a1))<6,true))
顯示true則是，顯示true則是false 則不是。
求excel vba**，把逗號分隔的數字變成日期時間
10樓：平陽虎
c2中輸入公式
=substitute(substitute(substitute(substitute(b2,","," ",3),",",":",3),",",":",3),",","/")
下拉填充。
11樓：excel辦公實戰
假如資料在a列
sub test()
arr = [a1].currentregiondim brr
redim brr(1 to ubound(arr), 1 to 1)
for i = 1 to ubound(arr)crr = split(arr(i, 1), ",")n = n + 1
brr(n, 1) = crr(0) & "/" & crr(1) & "/" & crr(2) & " " & crr(3) & ":" & crr(4) & ":" & crr(5)
next
[a1].resize(n, 1) = brrend sub
excel中vba**中的日期與數字怎麼拼到一起轉成文字格式？
12樓：眯住眼串針
sub test()
myrow = range("a65536").end(xlup).row
for i = 1 to myrow
range("c" & i) = format(range("a" & i), "yyyymmdd") & format(i, "000")
next
end sub
13樓：匿名使用者
format(range("a" & i).value,"yyyymmdd") & format(i,"000")
excel vba 怎麼把日期格式轉換成數值
14樓：我的王是金閃閃
=a1&text(b1,"e/m/d")
vba：
15樓：匿名使用者
為什麼要用vba呢？
按鍵精靈如何設定指定時間執行某按鍵
用什麼按鍵精靈啊，直接用vbs指令碼都行了。當然要看你要把 a 鍵傳送給哪個應用程式了。取得程式控制代碼，直接sendkeys就完了。不行的話postmessage。按鍵精靈如何設定每隔一段時間執行命令 每30分鐘執行復 一次命制 令具體參考如bai 下 du s now doif datediff...
Excel VBA問題 如何定義全域性變數
excel vba 定義全域性變數的具體操作步驟如下 1 首先我們開啟電腦裡的excel軟體進入excel主介面。2 然後我們滑鼠右擊下面的工作表 如sheet1 選擇 檢視 就可以開啟vba編輯介面。3 如圖顯示開啟vba程式設計介面。4 接著就是在 框裡輸入定義一個執行函式。5 接著就是在 框裡...
excel vba多列資料求和，要求用VBA字典
sub 多列相同項累計 dim dic,istr as string set dic createobject scripting.dictionary with activesheet for i 1 to range a65536 end xlup row istr cells i,1 cell...