VBA設定文字為物件,VBA中如何定義文字型變數

2022-12-03 20:45:12 字數 2791 閱讀 1385

1樓:匿名使用者

strname="main.textbox6"

'strname賦值

'該賦值沒有錯:strname串值=="main.textbox6"

set obj=strname

'設定文字為物件

'錯誤:將一個串值賦予一個物件變數,「型別不匹配」

『建議:使用如下語句可以解決。使用窗體controls屬性(帶索引號),賦予物件變數

'控制元件的索引號0起,n-1止,n是窗體中的控制元件個數。

set obj = me.controls(0)』例項:

textbox6.text = "試試看"

set obj = me.controls(0) 『窗體中僅有textbox6文字控制元件

msgbox obj.text

』輸出顯示:試試看

2樓:匿名使用者

dim strname as string '宣告strname為文字

dim obj as object '宣告obj為物件

strname = "textbox6" 'strname賦值set obj = callbyname(main, strname, vbget) '其中main為工作表的名稱

vba中如何定義文字型變數

3樓:tn瓶邪

物件就是的賦值,必需使用set語句

public sub 測試()

dim dyg as range

set dyg = range("b2")end sub

你完全可以不用定義為單元格物件,直接賦值就行了public sub 測試()

dim dyg$'定義字串變數

dyg = range("b2")

end sub

4樓:匿名使用者

參考下面的文字,我剛才定義了個string, 試讀了1000多漢字沒問題啊?難道公共變數有限制?試下固定長度變數看看?

***********************************===

1 vba中的字串

vba不僅可以處理數字,也可以處理文字(字串)。vba提供了兩類字串:

一類為固定長度的字串,宣告時包含指字的字元數。例如,下面的語句

dim strfixedlong as string*100

宣告字串變數後,無論賦予該變數多少個字元,總是隻包含100個字元,但字串最長不超過65526個字元,且需要使用trim函式去掉字串中多餘的空格。定長字串只有在必要時才使用。

另一類為動態字串。例如,宣告字串變數dim strdynamic as string後,可以給該變數任意賦值,最多可包含20億個字元。

********************

用vba如何設定單元格的格式型別

5樓:慶年工坊

sub s()

[a1].numberformatlocal = "@" '設定a1單元格為文字格式

[b1].numberformatlocal = "yyyy/m/d" '設定b1單元格為日期格式

[c1].numberformatlocal = "[$-f400]h:mm:ss am/pm" '設定c1單元格為時間格式

[d1].numberformatlocal = "0.00%" '設定d1單元格為百分比格式

[e1].numberformatlocal = "0.00e+00" '設定e1單元格為科學記數法格式

[f1].numberformatlocal = "g/通用格式" '設定f1單元格為常規格式

end sub

6樓:匿名使用者

cells(1,i).value = format(cells(1,i).value, "###0.00")

range("a1:a65536").numberformatlocal = "@"

range("a1:a65536").numberformatlocal= "g/通用格式"等等

7樓:屁屁金手指

excel攻略第十四招:vba之單元格的格式

使用vba修改ppt檔案中的物件.求高手,必重謝! 10

8樓:匿名使用者

方便的話,檔案發來看下?

私信你了。

————————————————————

郵箱發我啊

vba中怎麼獲取所選檔案物件

9樓:匿名使用者

如果要開啟檔案操作

set wb=workbooks.open(檔案路徑)然後操作即可

要獲取屬性,可以使用fso檔案系統,getfile(路徑)

10樓:vb程式設計解放雙手

使用檔案控制元件,或者使用系統檔案選中api

11樓:匿名使用者

看你想獲取所選檔案的什麼屬性,對檔案操作 用vb方便點

excel vba選取行,設定單元格為文字(求助)

12樓:匿名使用者

sub 文字型()

x = [d65536].end(3).row + 3range("d1:d" & x).numberformatlocal = "@"

end sub

selection需要select有內容才行。

VBA如何把數字識別為文字轉成時間格式

對於月份的自動識別可以使用函式 monthname month abbreviate 返回一個表示指定月份的字串。monthname函式語法有如下幾部分 month 必需的。月份的數值表示。例如一月是1,二月是2,等等。abbreviate 可選的。boolean值,表示月份名是否縮寫。如果忽略,預...

ecel中vba如何在模組中自定義函式定義好了之後

在模組裡定義 function aa a aa a end function 窗體裡呼叫 x aa 1 msgbox x vb函式分 baisub 無返回值 以及dufunction 有返回值 簡單範例 public function ss as stringss 我是 zhi end functi...

css中列表項文字的顏色設定為綠色

找到元素,給元素新增color就可以了,比如想要設定顏色的字型 box 通過class抓取div 然後設定顏色為綠色,希望採納,謝謝。看到這個問題我想回答color green,然後我回答了,你會採納嗎?透明度的話ie下用filter alpha opacity 50 範圍0到100,非ie下用op...