請教 VBA如何獲取巨集按鈕的所在的行號或列號

2022-03-14 08:07:12 字數 4332 閱讀 3629

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的巨集

保護公式可以這樣 選擇不需要保護 需要錄入內容 的單元格,設定單元格屬性,最後一個 保護 卡里面的 鎖定 取消,其它那些沒有取消鎖定的有公式的單元格自然是鎖定狀態。下一步是在工具 審閱 新版本 或者 工具 選單 舊版本 裡面選擇 保護工作表 設定一個密碼後確認。完成這兩步之後,鎖定的單元格內容就無法...