1樓:
sheet1.cells(2,1).value="祝你快樂!
",也可以:worksheets("sheet1").range("b1").
value="祝你快樂!",其中sheet是你所在的**,sheet1是第一張表
2樓:
activecell.formular1c1 = "祝你快樂!"
你看是這樣嗎?
3樓:玩手機的張先生
sub sss()
dim myrng as range
dim c as range
dim mycolor as integer
dim i as integer
dim jg1, jg2, jg3, jg4, jg5 as integer
dim 起始行 as integer
dim 結束行 as integer
起始行 = 2 '設定起始行
結束行 = 10 '設定結束行
for i = 起始行 to 結束行 '開始迴圈計算
set myrng = range("o" & i) '贈品1獲取**1
jg1 = jgjsq(myrng.value)
set myrng = range("p" & i) '贈品2獲取**2
jg2 = jgjsq(myrng.value)
set myrng = range("q" & i) '贈品3獲取**3
jg3 = jgjsq(myrng.value)
set myrng = range("r" & i) '贈品4獲取**4
jg4 = jgjsq(myrng.value)
set myrng = range("s" & i) '贈品4獲取**4
jg5 = jgjsq(myrng.value)
worksheets("工資核算明細表").range("u" & i).value = jg1 + jg2 + jg3 + jg4 + jg5
next i
end sub
function jgjsq(zp as string)
select case zp
case "鋼化膜"
jg = 2
case "保護殼"
jg = 1
case "全包鋼化膜"
jg = 5
case "耳機"
jg = 3.5
case "青花瓷碗2件套"
jg = 3.7
case "平底鍋4件套"
case "電餅鐺"
jg = 56
case "指環扣"
jg = 2.5
case "鑽石玻璃碗6件套"
jg = 14
case "精品茶具7件套"
jg = 17
case "九陽電飯煲"
jg = 67
end select
jgjsq = jg '返回**
end function已解決
excel vba怎樣指向單元格並把單元格的值賦值給一個變數?
4樓:魚木混豬喲
假設把 sheet1 中a1單元格賦值給x變數,語句如下:
x = sheets(1).range("a1")
假設x經過計算後,得到一個變數值y,那麼把y賦值給a1,語句為:
sheets(1).range("a1")=y
這樣就實現了單元格與變數之間的相互賦值
關於此例中涉及到的vba中變數的相關知識:
1、什麼是變數
變數是一個命名的記憶體位置。是在程式或**執行過程中,用於臨時儲存資料,並且其儲存的資料可以根據需要發生改變的一個命名專案。
變數由名稱(變數名)和資料型別指定:
變數名——用來引用變數
資料型別——確定變數所能儲存資訊的種類以及所佔儲存空間的大小
2、變數的命名規則
(1)名稱是由字母(a-z,a-z)或數字和下劃線「_」的任意組合。(在excel 2002以後的版本中也可以包含中文);最後一個字元可以是型別說明符;
(2)變數名的長度不得超過255個字元
(3)變數名在有效的範圍內必須是唯一的。有效的範圍就是引用變數可以被程式識別的作用範圍 例如一個過程、一個窗體等等;
(4)變數名不能是vba中的保留字(關鍵字),也不能是末尾帶型別說明符的保留字,但可以把保留字嵌入變數名。
說明:(1)變數名是不區分大小寫的。如abc、abc、abc等都是一樣的;
(2)定義和使用變數時,通常要把變數名定義為容易使用閱讀和能夠描述所含資料用處的名稱;
(3)根據需要混合使用大小寫字母和數字。如果需要使用多單片語,變數中每個單詞的第一個字母大寫,例如:datatemp表示臨時資料,也可以兩個單詞中下劃線分隔,例如:last_num;
(4)對於變數名也有更好的建議,每個變數名以兩個或三個字元縮寫開始,這些字元縮寫對應於變數要儲存資料的資料型別。例如strworksheet as string表用來示工作表名,字首str表示當前變數的型別。
excel 用 vba 結合公式給單元格賦值
5樓:表裡如一
要vba找我..單擊我的名字看****.
編輯vba需要你的原始檔案,若你的檔案涉及企業機密,可以修改內容.
記住,不要動格式.
最後的**:
sub cheng()
dim i, j
for each c in thisworkbook.sheetswith c
j = .range("j65535").end(xlup).rowfor i = 6 to j
.cells(i, 10) = round(.cells(i, 10) * 0.0015, 2)
.cells(i, 11) = round(.cells(i, 11) * 0.0015, 2)
next
end with
next
end sub
6樓:同意所有條款
右擊任意一個工作表名稱,選擇全選工作表,然後按照ouyangff的辦法去做。
7樓:恭成雙
sub test()
dim i, m, irow, sh, arrm = 0.0015
for each sh in thisworkbook.sheetsirow = sh.[d65535].end(xlup).row - 1
arr = sh.range("d4:e" & irow)for i = 1 to ubound(arr)arr(i, 1) = arr(i, 1) * marr(i, 2) = arr(i, 2) * mnext
sh.range("d4:e" & irow) = arrnext
end sub
vba中如何用excel表中的資料給陣列賦值
8樓:浩哥奕弟
excel表的單元格區域是一個二維陣列
dim arr
arr=sheet3.range("d7:d9")'這時的arr得到的是二維陣列
'你要轉換成1維陣列,先宣告一個動態陣列再重定義為1維陣列dim brr()
redim brr(1 to ubound(arr))'再重新將二維轉一維
for i = 1 to ubound(arr)brr(i)=arr(i,1)
next
'如果你是要間隔寫進去
for i = 1 to ubound(arr) step 2brr(i)=arr(i,1)
next
用vba給excel單元格賦值
9樓:刀劍上的舞者
材料/工具:excel2010
1、開啟一個excel的檔案,滑鼠左鍵單擊【開發工具】選單標籤。
2、接著,在**中輸入簡單的**,比如水果**。
3、然後在vba控制元件下拉選單中,選擇按鈕控制元件。
4、接著在**中繪製出按鈕控制元件,並修改控制元件名稱。
5、然後,滑鼠左鍵單擊【檢視**】按鈕。
6、接著,在**視窗中輸入給單元格的賦值語句。
7、最後在設計視窗上,滑鼠左鍵單擊按鈕,可以看到**中的單元格中自動顯示出資料了
10樓:匿名使用者
你的意思是定義一個區域,然後把這個區域當作一個表,並對該區域的某一個單元格賦值吧!沒看懂你myrange中賦了什麼區域。
dim myrange as range
sub mac()
set myrange = range("b2, e6")chengxu
end sub
public function chengxu()myrange.cells(1, 3) = "hhh"
end function '結果是第2行,第4列賦值hhh了這個大概是你想要的,chengxu中要執行myrange區域的某單元格賦值的話,建議你別加上(byval myrange as range),myrange的宣告一定要是全域性宣告。否則就要這樣。
public function chengxu()set myrange = range("b2, e6")myrange.cells(1, 3) = "hhh"
end function
11樓:
selection(1, 1) = "aaa"
除錯已通過
12樓:匿名使用者
試試這個:
myrange(1)="hhhhhhhhhh"
13樓:
參考這個例子吧
public sub chengxu()
dim myrange as range
dim i as integer
dim j as integer
set myrange = range("a1: f2")i = myrange.countlargefor j = 1 to i
myrange(j).value = j
next j
end sub
ecel2019如何用斜線將單元格分成
這個斜線表頭可以用,繪圖工具 自選線條 直線 來畫 也可以用 設定單元格格式 邊框 左右下角里的斜槓和反斜槓,來設定 裡面打字時先打上一個 日期 按下alt鍵和回車鍵,強行換行,再輸入 姓名 最後輸入空格進行調整漢字的位置 如果是一格斜分成3格,這要用到 繪圖工具 直線 來畫上 再寫 日期 按下al...
ecel條件格式功能如何用單元格的內容控制一
漂哥 條件格式 公式 b1 已完成 格式 字型 藍色 確定 條件格式 公式 b1 未開始 格式 字型 紅色 確定 條件格式 公式 b1 進行中 格式 字型 淡紅色 確定 冷月人生之冷劍 選中資料區域 工具欄 格式 條件格式 公式 b2 進行中 格式 字型 顏色 自行選擇所需顏色 確定 新增 按照上步...
ecel中如何找出單元格中某個字母
假定單元格是a1,某個字母為a 1 確定a1中是否存在字母a。公式 if isnumber find a a1 在a1中存在字母a 在a1中未發現字母a 2 若要統計字母a的數量。公式 if isnumber find a a1 在a1中存在個字母a 在a1中未發現字母a 3 若要查詢字母a 只有一...