電腦學習園地

http://www.extreme.outervision.com/psucalculator.jsp

VirusTotal 網址 https://www.virustotal.com/zh-tw/   Virscan.org

免費線上空間5G https://www.pogoplug.com/

問題：想要自動抓取再日期中有輸入內容，固定顯示在最後面的函數寫法 說明： 1.使用Row抓取位置的列號 2.使用Count判斷有輸入資料的各數 3.利用Index抓取欄號、列號的內容

首先必須先安裝AutoCAD 2012 Service Pack 1 點我下載 安裝好後輸入 ARRAYCLASSIC 指令即可使用以前版本的「陣列」對話方塊 也可以設定工具-自訂-編輯程式參數-把*ARRAY修改成*ARRAYCLASSIC  

Dim DirInfo As IO.DirectoryInfo
DirInfo = New IO.DirectoryInfo("D:\test")
For Each file In DirInfo.GetFiles("*.*", IO.SearchOption.TopDirectoryOnly)
'設定抓檔案(*.jpg)限定在此資料夾下不包含子資料夾
If ListBox1.Items.Contains(Microsoft.VisualBasic.Right(file.Name, Len(file.Name) - InStr(1, file.Name, "."))) = False Then
ListBox1.Items.Add(Microsoft.VisualBasic.Right(file.Name, Len(file.Name) - InStr(1, file.Name, ".")))
End If
Next file

http://club.excelhome.net/dispbbs.asp?BoardID=2&ID=170390&replyID=&skin=0
VBA語句集100句(第1輯)我將學習VBA過程中常用的語句進行了歸納,希望能對Excel愛好者和VBA初學者有所幫助. VBA語句集
(第1輯) 定製模塊行為
(1) Option Explicit '強制對模塊內所有變量進行聲明
Option Private Module '標記模塊為私有，僅對同一工程中其它模塊有用，在宏對話框中不顯示
Option Compare Text '字符串不區分大小寫
Option Base 1 '指定數組的第一個下標為1
(2) On Error Resume Next '忽略錯誤繼續執行VBA代碼,避免出現錯誤消息
(3) On Error GoTo ErrorHandler '當錯誤發生時跳轉到過程中的某個位置
(4) On Error GoTo 0 '恢復正常的錯誤提示
(5) Application.DisplayAlerts=False '在程序執行過程中使出現的警告框不顯示
(6) Application.ScreenUpdating=False '關閉屏幕刷新
Application.ScreenUpdating=True '打開屏幕刷新
(7) Application.Enable.CancelKey=xlDisabled '禁用Ctrl+Break中止宏運行的功能

[範例01] 傳值給某單元格
[範例01-01]
Sub test1()
Worksheets("Sheet1").Range("A5").Value = 22
MsgBox "工作表Sheet1內單元格A5中的值為" _
& Worksheets("Sheet1").Range("A5").Value
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Rows(Selection.Row & ":" & Selection.Row).Select
End Sub

A ~ Z 函數語法 : =CHAR(65+ROW()-1)   a ~ z 函數語法 : =CHAR(97+ROW()-1)