EXCEL-VBA 選取任意範圍

這是可以的 , 但是先決條件是不是要告知儲存格的起點
您可以設計下列程式可以做到您的要求
Public SUB 任意範圍()

x = InputBox("輸入起始位址[如:A3]")
y = InputBox("輸入欄與列範圍大小[如:3*5]")

Range(x).Select
y1 = Int(Left(y, 1))
y2 = Int(Right(y, 1))


ActiveCell.Offset(y2, y1).Select
r1 = ActiveCell.Address
myaddress = x & ":" & r1
Range(myaddress).Select

END SUB

不過上式只執行一位數 , 如果您要二位數以上建議改成下列方式較方便
Public SUB 任意範圍()

x = InputBox("輸入起始位址[如:A3]")
cn = InputBox("輸入欄範圍大小[如:12]")
rn = InputBox("輸入列範圍大小[如:120]")

Range(x).Select
ActiveCell.Offset(rn, cn).Select
r1 = ActiveCell.Address
myaddress = x & ":" & r1
Range(myaddress).Select

END SUB

EXCEL VBA 時間反序

一要有三張工作表
一張 IN : 資料輸入
二張 : 正向(fxd)
三張 : 反向(newfxd)
程式如下
Sub Macro1()
Sheets("fx-d").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.Offset(0, 0).Value = Sheets("IN").Range("D6").Value
ActiveCell.Offset(0, 1).Value = Sheets("IN").Range("E6").Value
ActiveCell.Offset(0, 2).Value = Sheets("IN").Range("F6").Value
Range("A3").Select

Sheets("newfx-d").Select
Rows("3:3").Select
Selection.Insert Shift:=xlDown
Range("A3").Select
ActiveCell.Offset(0, 0).Value = Sheets("IN").Range("D6").Value
ActiveCell.Offset(0, 1).Value = Sheets("IN").Range("E6").Value
ActiveCell.Offset(0, 2).Value = Sheets("IN").Range("F6").Value
Sheets("IN").Select
Range("D6").Select
End Sub

EXCEL下拉式選單

請依下列步驟執行
1 選取儲存格 / 選取 功能表 資料 / 選取 驗證
2 選取 清單 項目 / 輸入 A,B,B1,C [可自訂清單內容]
3 確定

柯尼卡攝影學會生活攝影初級班 招生簡章

柯尼卡攝影學會生活攝影初級班 招生簡章
一. 宗旨:為推廣數位相機攝影，熟悉數位後製技能基礎。
主要針對攝影愛好者所規劃、基礎影像處理提供教材、例圖，以實作為主。
二. 以實用及小班化教學為主、輕鬆學習、讓每位學員自信地修好照片。
三. 費用:會員每人NT$2000元，非會員每人NT$2500元。
四. 報名方式:請以郵政劃撥方式報名(帳號:07186667戶名:蕭美蘭)，或電話報名:0932-177-205蕭美蘭
五. 上課時間:學員額滿20名即開課每星期四晚上7:00至9:00。
上課地點: 台北市林森北路67巷7號3樓（林森區民活動中心）
授課教師: 本班所聘請之授課老師陣容堅強，教學與攝影經驗豐富，且對其所擔任之課程亦均有獨到之見解，為國內優秀之攝影名家。尤其著重於實拍操作，讓每位學員均能深入領悟攝影之相關技巧及手法。
總會長：王盈欽 總幹事:廖耀宗 班主任：陳孝友 招生策劃: 蕭美蘭指導老師:王在洲 游任忠

今天是連續假日的上班

今天才發現一堆工作做不完
現在是1:30分早上
我仍然在努力中
大家要加油喔