1樓:勒粵嘟呀戲
我好像記得是可以的,但是我忘了,
不過可以換個思路,用它所在位置來推理出應該在那個行。
效果如下:
sub 巨集2()
a = activesheet.shapes("button 1").top
for i = 1 to 10
myt = cells(i, 1).heightmytop = mytop + myt
if mytop > a then
exit for
end if
next
msgbox ("應該在行:" & i)
end sub
2樓:鶴嶼遷歸
turtle庫手冊可以查詢查詢 python圖形繪製庫turtle中文開發文件及示例大全,手冊中現有示例,不需要自己動手就可以檢視演示。
使用turtle畫樹,看了一下網上的**,基本上核心的方法是使用遞迴;其次通過遞迴傳參更筆的粗細從而改變繪製時的線段,更改樹的軀幹大小,在遍歷到最後一個節點時,更改筆的顏色及粗細,繪製出樹尖的花瓣或綠葉。
本篇博文使用的是網上的**修改而成的,基本上寫來寫出簡單編寫也是使用遞迴,我也就拿過來用了。本來想順便把環境也繪製一遍,但是明天上班了,今天還有別的事,就只能作罷,有時間再寫一篇把環境都弄好的案例吧;下面是最終**執行後的結果
如何在vba中得到當前單元格的行號和列號
3樓:魚木混豬喲
軟體版本:office2013
方法如下:
alt+f11,輸入**如下:
selection代表選擇的單元格
row屬性可得到起行號;column可得到起列號2.f5執行**,即可得到當前單元格的行號和列號:
4樓:戴雯君
dim ks as range
set ks = range("d2")
lie = ks.column
hang = ks.row
你宣告瞭ks是單元格物件,就不能用ks=d2這麼寫了只能用set給ks賦值一個單元格。而且系統預設d2是變數。字串要加雙引號。
或者你可以這樣寫
dim ks
ks = "d2"
lie = range(ks).columnhang = range(ks).row
5樓:宋棋雨
在vba中,單元格不用定義變數直接可用range引用單元格表示要用字串表示
ks="d2"
lie = range(ks).row
vba如何得到選中的多行 的行號和列號
6樓:匿名使用者
選中一行,選中連線多行,選中不連線多行都適用,請測試:
(剛才的有問題,又改了一下)
sub b()
if selection.address like "*,*" then
p = split(selection.address, ",")for i = lbound(p) to ubound(p)q = split(p(i), "$")
msgbox q(ubound(q))
next
else
p = split(selection.address, "$")for i = replace(p(1), ":", "") to p(2)
msgbox i
next
end if
end sub
這是選中整行的,如果你選中的是區域就有問題,有問題的話q我的excel群找吧,這裡不讓再改了——84253041
如何通過vba獲取當前單元格所在行和列
7樓:很多很多
1、將單元格所選單元格的行號和列號,分別用vba顯示在下面的兩個單元格中,
2、按下alt+f11,開啟vba編輯介面,選擇當前工作表編寫**,4、下面**是得到當前單元格的列號並放到當前單元格下面第二個單元格中:
5、**編寫完成,點選執行子過程按鈕(或按下f5),6、最後返回excel中,就可以看到得到了當前單元格的行號和列號,
8樓:戴雯君
dim 行, 列
列 = cells.find("要找的資料").column行 = cells.
find("要找的資料").rowmsgbox "要查詢的資料在" & 行 & "行" & 列 & "列"
9樓:匿名使用者
activecell.row 『活動單元格所在的行數
activecell.column 『活動單元格所在的列數
10樓:匿名使用者
參考思路如下:
function rc_test(a)
on error resume next
rc_test = a.row & "/" & a.columnend function
excel vba 如何找到某一資料的行號和列號?
11樓:匿名使用者
先定義一個rng變數,在該列非空單元格中迴圈;
再定義一個str變數,用於存放符合條件的單元格地址;
if rng=指定條件 then
str=rng.address & str & ","
end if
最後去掉str的最後一個逗號,寫入位置或者msgbox顯示
12樓:香格里拉稻草人
**在附件,原始碼開放,d1單元格為需要查詢的字元,點選按鈕顯示符合條件的全部行號和列號
13樓:
那重複的是要哪一行?這種你要說清楚哦
excel vba 如何獲得活動單元格所在行的行號
14樓:匿名使用者
'單元格觸發事件
private sub worksheet_selectionchange(byval target as range)
if target.count = 1 thenmsgbox "當前單元格的行號是:" & target.rowend if
end sub
用命令按鈕的巨集:
sub yy()
msgbox "當前單元格的行號:" & activecell.row
end sub
15樓:匿名使用者
activecell.row 活動單元格所在的行數
activecell.column 活動單元格所在的列數
vba中如何取得行號和列號如何選定這一範圍的值
16樓:匿名使用者
public sub aaa()
'取得b5的 行號 和 列號 ,並寫入資料s = "b5"
r = range(s).row
c = range(s).column
cells(r, c).value = 5'選定 a1:b5 單元格區域
range(cells(1, 1), cells(r, c)).select
'選定 a2:b5 單元格區域
range(range("a2"), cells(r, c)).select
'選定 a3:b5 單元格區域
range([a3], cells(r, c)).select'選定 b5右下方(含b5) 共2行3列 的 單元格區域,即 b5:d6
[b5].resize(2, 3).select'……end sub
17樓:匿名使用者
sub show()
debug.print selection.column,selection.row
selection.entirerow.selectend sub
excle vba,如何查詢一個已知值的行號和列號?
18樓:姓王的
set rng=cells.find("日期")'查詢含有「日期」的單元格
if not rng is nothing then『如果找到ro=rng.row』行號
co=rng.column『列號
end if
19樓:匿名使用者
標籤裡有個單元格是「日期」
這句話是什麼意思?
20樓:匿名使用者
activecell.row
activecell.colunm
excel巨集中如何獲取新增按鈕的屬性
方法一 你用的是表單控制元件中的按鈕,每個按鈕指定巨集,10個按鈕得指定10個巨集,巨集的名稱為 buttonattribute i,然後再定義10個巨集。public bod 100 sub addbutton dim str for i 1 to 2 set bod i activesheet....
c如何獲取滑鼠選取的內容,VBA裡,如何獲取滑鼠座標?
獲取滑鼠選取的內容,可以通過截圖的方式,以 的形式進行儲存。截圖方法可藉助qq截圖功能,一般快捷按鍵 ctrl alt a。或通過瀏覽器的截圖功能 截圖方法 1 按截圖快捷鍵 或點選瀏覽器 截圖 按鈕後,選取需要需要的內容,劃定範圍後,雙擊被選擇的區域,選取的內容以 的形式被儲存在剪貼簿。2 執行 ...
在excel中如何使用vba的巨集
保護公式可以這樣 選擇不需要保護 需要錄入內容 的單元格,設定單元格屬性,最後一個 保護 卡里面的 鎖定 取消,其它那些沒有取消鎖定的有公式的單元格自然是鎖定狀態。下一步是在工具 審閱 新版本 或者 工具 選單 舊版本 裡面選擇 保護工作表 設定一個密碼後確認。完成這兩步之後,鎖定的單元格內容就無法...