1樓：匿名使用者
這個要配合工作簿的開啟事件。
excel vba滑鼠動作問題，請高手來幫忙！
2樓：匿名使用者
有點意思，做了個
option explicit
dim strpre, s as string
dim lastrange as string
dim lcount as long
private sub worksheet_selectionchange(byval target as range)
'第一次改變所選的單元格
if strpre <> thisworkbook.str and not (lcount > 0) then
lastrange = thisworkbook.str
else
lastrange = strpre
end if
getpreaddress target.address
if target.column = 2 then
if lastrange = target.offset(0, -1).address then s = format(target.
offset(0, -1), "ddmmm") & "/" & target
end if
with createobject("new:")
.settext s
.putinclipboard
end with
end sub
sub getpreaddress(strprea as string)
strpre = strprea
lcount = lcount + 1
end sub
thisworkbook:
option explicit
public str as string
private sub workbook_open()
str = activecell.address
end sub
3樓：匿名使用者
我想，你的第一個點選的單元格日期，應該是在同一列的，如果是這樣，不妨用單元格change事件來做。
vba程式設計時內附sql語句太長但是無法斷句，請高手幫忙解答多謝！
4樓：匿名使用者
把sql這個字元變數的語句實時值拿出來看看就知道錯在**了
5樓：網海1書生
為什麼說「必須使用斷句」呢？vba的語句最長支援1024個字元，你這些寫成一行也不可能超過1024個字元呀？
另外group是sql的保留字，一般最好不要用做欄位名，實在要用的話就要在sql命令中把它用方括號括起來，比如……code,family,[group],type……
還有，像 '" & combossitype & " ' 這後面的單引號前面的一個空格也會被作為內容存到資料庫的哦，確信這樣是對的嗎？建議改為 '" & combossitype & "'
此外，你這些欄位確信全部都是字串型的嗎？沒有數值型的？
補充：剛剛測試了一下，你的sql命令寫成一行是600多個字元，因為不斷行是完全沒問題的。
6樓：陽光的雷咩咩
使用fomat函式。
excel vba多模組一起用的問題？高手幫忙！
7樓：太極健
這和你分幾個模組沒關係，分成幾個過程（巨集）就行了如整個過程分為三個巨集，分別是巨集1，巨集2，巨集3新建一個巨集，叫執行
那麼，執行的巨集**如下
sub 執行 （）
sall 巨集1
sall 巨集2
sall 巨集3
end sub
按鈕指定巨集到執行
8樓：匿名使用者
使用call語句，在你的單擊按鈕中
call 模組1
call 模組2
call 模組3
關於vba下標問題,求高手幫忙看下,怎麼改:謝謝! 10
9樓：小李無刀
只要改這兩行就行了：
sheet1.[e12:g3100].clearcontents '這一行是清空最後接收資料的位置，區域是e12:g3100
arr = sheets("shee4").range("v6:x3006") '這裡的陣列就是判斷資料的區域v6:x3006，你改這裡就行了
超級簡單的問題 但我竟然不會
開啟登錄檔編輯器最簡單的方法，正如大家所說的，點 開始 執行 在裡面輸入 regedit 然後回車即可。這個方法適用於95到2003的所有windows版本。登錄檔的由來 pc機及其作業系統的一個特點就是允許使用者按照自己的要求對計算機系統的硬體和軟體進行各種各樣的配置。早期的圖形作業系統，如win...
簡單的問題請如實回答,一個簡單的問題請如實回答
擦肩而過,沒什麼感覺 我會感到同情，而不是鄙視。不會的！那只是一種形體上的殘疾，但是隻要他還有意念，還有生存的信心，這就足夠了！有一個問題想要請教大家，請如實回答 血型 人的血型常見的有a b o ab，血型由a元 b元 o元組成，精子和卵子中隨機抽取一部分。若父母其中一人抽取a另一人抽o，則孩子為...
請懂VBA的朋友幫我用VBA在excel裡面編寫個計算器，只要加法的就可以了
private sub worksheet selectionchange byval target as range if f6 then exit sub static temp static w,j r1 target.row c1 target.column if r1 2 and r1 7...