12
返回列表 上一主題 發帖

4個VBA問題

basarasy

帖子
287 
主題
65 
精華
0 
積分
357 
點名
0  
作業系統
xp 
軟體版本
OFFIC 2007 
閱讀權限
20 
註冊時間
2010-6-4 
最後登錄
2015-8-19 
7# 跳轉到 »
發表於 2010-7-25 00:59 | 只看該作者
回復 6# kimbal
謝謝kimbal的教導static同scripting.dictionary,但是太難了><  要慢慢學.
你打的vba不能用.
可以這樣嗎?
第1個sub  寫
Sub test()
    Static d
    If IsEmpty(d) Then
        Set d = CreateObject("Scripting.Dictionary")
    End If
    v = Range("a1").Value
    If d.exists(v) Then
        d(v) = d(v) + 1
    Else
        Call d.Add(v, 1)
    End If
    Range("C1") = d(v)
End Sub

第2個sub  寫
把Static d  save  到 dim MySave
如果vba的MySave不能在off excel再open excel用 就save在 [z1]

第3個sub  寫
把Static d  初期化  del  Static d內所有東西(數or文字)

第4個sub  寫
a1=hu   run2次   c1會出2
在e1打hu 在f1打1 (a1=hu)   之後run 1次  c1就會出2(這個是改Static d入面的數)

最後有1個問題是  
MyName = Sheet3.Name      (Sheet3.Name=人)

    Range("AA3").Formula = "=IF(MyName!C2="""","""",VLOOKUP(A2,poi!$A$2C$501,3,0))"
這個如何寫才可以在aa3出  "=IF(人!C2="","",VLOOKUP(A2,poi!$A$2C$501,3,0))"
50 字節以內
不支持自定義 Discuz! 代碼

TOP

kimbal

帖子
472 
主題
5 
精華
0 
積分
485 
點名
0  
作業系統
Windows 
軟體版本
MS Office 
閱讀權限
100 
性別
男 
來自
香港 
註冊時間
2010-7-4 
最後登錄
2014-12-28 

論壇貢獻勳章
6#
發表於 2010-7-25 00:01 | 只看該作者
回復  GBKEE

1-3都明白了  謝謝2位大大

4
Set =Sheet1.Range("A65536")  這個有問題.
如果要del   ...
basarasy 發表於 2010-7-24 20:04


    不如你先了解一下Static  和 Scripting.Dictionary 是什麼.
了解後你就會知道 " eg.   as=1    gh=3    hu=10"  的要如何做.
不明白可以在這裡問問~

static的意思大約是"暫存" 在module reset前會把數值記起來.
scripting.dictionary可參考一下這裡
http://forum.twbts.com/viewthread.php?tid=20

有關之前說的,把scripting.dictionary的置存到sheet上
跟玩游戲一樣
在a1 輸入SAVE, 會把所有次數放在entries一頁,
在a1 輸入load時, 把所有次數由entries一頁復原
  1.    
  2.     Static d
  3.     Set acsht = ActiveSheet
  4.     v = Range("a1").Value
  5.     If v = "LOAD" Then
  6.         d = Null
  7.     End If
  8.    
  9.     If IsEmpty(d) Or IsNull(d) Then
  10.         Set d = CreateObject("Scripting.Dictionary")
  11.         If v = "LOAD" Then
  12.             Sheets("Entries").Select
  13.             If Range("A1") <> "" Then
  14.                 For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
  15.                     v2 = Range("A1").Offset(i - 1)
  16.                     If d.exists(Range("A1").Offset(i - 1)) Then
  17.                         d(v2) = Range("A1").Offset(i - 1, 1)
  18.                     Else
  19.                         Call d.Add(v2, 1)
  20.                     End If
  21.                 Next
  22.             Else
  23.                 d = Null
  24.             End If
  25.             acsht.Select
  26.             Range("C1") = "LOADED"
  27.             Exit Sub
  28.         End If
  29.     Else
  30.         If v = "SAVE" Then
  31.             Sheets("Entries").Select
  32.             Cells.Clear
  33.             dk = d.keys
  34.             di = d.Items
  35.             Range("A1").Resize(UBound(dk) + 1).Value = WorksheetFunction.Transpose(dk)
  36.             Range("B1").Resize(UBound(di) + 1).Value = WorksheetFunction.Transpose(di)
  37.             acsht.Select
  38.             Range("C1") = "SAVED"
  39.             Exit Sub
  40.         End If
  41.     End If
  42.    
  43.     If d.exists(v) Then
  44.         d(v) = d(v) + 1
  45.     Else
  46.         Call d.Add(v, 1)
  47.     End If
  48.     Range("C1") = d(v)
複製代碼
懂得發問,答案就會在其中

今日の一秒は  明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

basarasy

帖子
287 
主題
65 
精華
0 
積分
357 
點名
0  
作業系統
xp 
軟體版本
OFFIC 2007 
閱讀權限
20 
註冊時間
2010-6-4 
最後登錄
2015-8-19 
5#
發表於 2010-7-24 20:04 | 只看該作者
回復 4# GBKEE

1-3都明白了  謝謝2位大大

4
Set =Sheet1.Range("A65536")  這個有問題.
如果要del   d這個數重頭開始過,寫1句   MySave.del  對嗎?

如果 d  save了幾個數可以改嗎?
eg.   as=1    gh=3    hu=10   我可以在e1打hu 在f1打9 (a1=hu)   之後run 1次  c1就會出10

gtg.JPG (32.18 KB)

gtg.JPG

50 字節以內
不支持自定義 Discuz! 代碼

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
4#
發表於 2010-7-24 17:34 | 只看該作者
回復 3# basarasy
1   [d1]= [b1]&" "&[c1]
2 用CodeName         
如 Sheets("sheet1")  是  Sheet1  ->  Sheet1.Select  
如 Sheets("sheet2")  是 Sheet2  ->  Sheet2.Select  
3 sheets("sheet2").Range("A1").Value=sheets("sheet1").Range("A1").Value
->Sheet2.Range("A1").Value=Sheet1.Range("A1").Value
4 dim MySave
   Set =Sheet1.Range("A65536")      
   MySave.Value=d

TOP

basarasy

帖子
287 
主題
65 
精華
0 
積分
357 
點名
0  
作業系統
xp 
軟體版本
OFFIC 2007 
閱讀權限
20 
註冊時間
2010-6-4 
最後登錄
2015-8-19 
3#
發表於 2010-7-24 16:19 | 只看該作者
回復 2# kimbal

1
是想在d1出    "[b1]的數or文字    [c1]的數or文字"
eg.   b1=4  c1=t  > d1=  "4  t"

2
只要sheet不移動,就可以用sheets(1).Select嗎?用sheets(1).Select  sheet改名都冇問題嗎?

4
找個位置把以下d的東西存起
不是很明.
dim MySave
MySave=d      ??
50 字節以內
不支持自定義 Discuz! 代碼

TOP

kimbal

帖子
472 
主題
5 
精華
0 
積分
485 
點名
0  
作業系統
Windows 
軟體版本
MS Office 
閱讀權限
100 
性別
男 
來自
香港 
註冊時間
2010-7-4 
最後登錄
2014-12-28 

論壇貢獻勳章
2#
發表於 2010-7-24 15:56 | 只看該作者
1
  1. [D1]=Range("B" & trim(str(n)) & "  " &  Range("C"& trim(str(i)))
複製代碼
不太明你想要的是什麼

2
  1. sheets(2)
複製代碼
SHEET2 不一定是第2, 你可以先用sheets("abc").index 來找位置

3
跟第2題的同一道理

4 如果你想關excel後數字還在, 就要找個位置把以下d的東西存起
  1. Sub test()
  2.     Static d
  3.     If IsEmpty(d) Then
  4.         Set d = CreateObject("Scripting.Dictionary")
  5.     End If
  6.     v = Range("a1").Value
  7.     If d.exists(v) Then
  8.         d(v) = d(v) + 1
  9.     Else
  10.         Call d.Add(v, 1)
  11.     End If
  12.     Range("C1") = d(v)
  13. End Sub
複製代碼
懂得發問,答案就會在其中

今日の一秒は  明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

        靜思自在 : 人要自愛，才能愛普天下的人。
12
返回列表 上一主題