option explicit
sub resize_1()
dim myrange as range
'set myrange = activesheet.usedrange
'set myrange = range(「a2」).resize(5, 6)
'myrange.select
'msgbox "當前選擇的單元格區域位址為： " & myrange.address
'在原區域的基礎上實現行/列的增加
set myrange = activesheet.usedrange.resize(activesheet.usedrange.rows.count + 1, _
activesheet.usedrange.columns.count + 1)
myrange.select
'myrange = "$" 將區域內的所有元素進行賦值
sub cells_1()
dim i as integer
'for i = 3 to 8
』 cells(2, i) = i - 2
'next
'for i = 3 to 17
』 cells(i, 1) = i - 2
'next
end sub
sub offset_1()
dim i as integer
for i = 2 to 7
'range(「a2」).offset(0, i) = i - 1
next
for i = 1 to 15
』 range(「a2」).offset(i, 0) = i
next
end sub
sub usedrange_1()
dim myrange as range
dim myrow as long
myrow = activesheet.usedrange.rows.count
'activesheet.usedrange.select
set myrange = activesheet.usedrange.resize(myrow - 1).offset(1, 0) '下移
myrange.select
msgbox "當前選擇的單元格區域位址為： " & myrange.address
end sub
sub end_1()
dim myrange as range
set myrange = activesheet.usedrange
'activesheet.cells(19, 「l」).end(xltoright).select 用cells()屬性可以定位到具體單元格，因此可以實現end（）
'msgbox "當前選擇的單元格： " & activesheet.cells(19, 「l」).end(xltoright).value
'msgbox "當前選擇的單元格： " & range(「f8」).end(xltoright).value
myrange.select
'msgbox myrange.column '返回range的第一列列號，同理row
'msgbox myrange.columns.count '返回range的列數，同理rows
'msgbox myrange.cells(1, 1).end(xltoright).column 儘管所選擇區域自定義，但返回的列號為其在excel中的位置。
'查詢區域內給定元素，然後找到其所在行列的end()元素
dim i as integer
dim j as integer
dim num as integer
dim spe_ele as integer
spe_ele = 99
num = myrange.rows.count * myrange.columns.count
msgbox "所選擇區域共計元素：" & num & "個"
for i = 1 to myrange.rows.count
for j = 1 to myrange.columns.count
if myrange.cells(i, j) = spe_ele then
msgbox "當前選擇的單元格所在行/列的end元素為： " & myrange.cells(i, j).end(xltoright).value
'end(xltoleft) end(xltoup) end(xltodown）
end if
next
next
sub inputbox_1()
dim myname as string, my*** as string, _
myage as string
myname = inputbox(prompt:=「請輸入您的姓名：」, title:=「個人資訊輸入框」, default:=「太陽」)
'應當注意，這裡幾個引數的順序是固定的，不能變更。這樣，我們就能省略引數的說明，例如，上句**與下句等價：
'myname = inputbox(「請輸入您的姓名：」, 「個人資訊輸入框」, 「太陽」)
'當然，對於我而言，由於不熟悉vba，建議保留引數說明，以增強**的可閱讀性
my*** = inputbox(prompt:="您的姓名是：" + myname + _
vbcrlf + "下面請輸入您的性別資訊:", _
title:="個人資訊輸入框", default:="月亮")
myage = inputbox(prompt:="您的姓名是：" + myname + _
vbcrlf + "您的性別是：" + my*** + _
vbcrlf + "下面請輸入您的年齡資訊：", _
title:="個人資訊輸入框", default:="星星")
'注意換行符的使用方法，注意資訊錄入順序
第一次作業彙總
這個作業屬於哪個課程 2022物件導向程式設計寒假作業1 這個作業要求在 這個作業的目標 學習markdown語法自我介紹 安裝並學學習git的基本使用 註冊github賬號，並建立倉庫，編輯自我介紹，並提交commit 選擇並配置乙個適合自己的ide,安裝ubuntu20.04系統，學習基本的li...
第一次衝刺部落格評論彙總
1 我們是第四組 卡密様 我們的意見如下 1.功能實現太少 2.沒連資料庫 3.不能掃碼開啟網頁 2 我們是第四組 卡密様 我們的意見如下 1.介面可以再改善 2.輸入時可以中英文 3.功能可以再新增一些 3 我們是第四組 卡密様 我們的意見如下 1.希望能改善程式的執行，減少意外錯誤。2.希望能連...
2022寒假第一次作業彙總
這個作業屬於哪個課程 2022物件導向程式設計 這個作業要求在 2022面向程式物件設計寒假作業1 這個作業的目標 1 學習markdown語法 2 自我介紹 3 安裝並學學習git的基本使用 4 註冊github賬號，並建立倉庫，編輯自我介紹，並提交commit 5 選擇並配置乙個適合自己的ide...