個人積分：571分
文章編號：38241621
個人積分：40分
文章編號：38244153
kkmr wrote:
大大我想請問如果我有...(恕刪)
可以試用樞紐分析表。
學習活用這個工具應該可以做到你想要的效果。
以下是一些樞紐分析表的教材
http://sites.google.com/site/exceltkk2/tutorial-classification-3#pivottable
個人積分：40分
文章編號：38244161
How to find the record in a specific row
如何快速找出特定列數的數據
http://sites.google.com/site/exceltkk2/excel-tutorial/howtofindtherecordinaspecificrow
謝。
個人積分：40分
文章編號：38293179
How to select all shapes in a sheet at one time
如何一次過選取全部的圖片
http://sites.google.com/site/exceltkk2/excel-tutorial/howtoselectallshapesinasheetatonetime
謝。
個人積分：7分
文章編號：38329642
個人積分：40分
文章編號：38360827
toto0833 wrote:
stephen_tk...(恕刪)
試試用以下程
1. 按 F11 > 插入 > 模組 > 貼上以下程式
2. 給儲存格範圍定名到跟圖片名稱一樣
3. 按 F5 運行程式，並選取該有圖片的資料夾 > 確定
(只可插入 JPG, JPEG, BMP 檔 可跟改程式到你需要的檔類型)
Sub ImportImage()
Dim xRow As Long
Dim xDirect$, xFname$, InitialFoldr$
Dim picName As String
Dim picExt As String
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = Application.DefaultFilePath & "\"
.Title = "Please select a folder to insert picture"
.Show
If .SelectedItems.Count <> 0 Then
xDirect$ = .SelectedItems(1) & "\"
xFname$ = Dir(xDirect$, 7)
Do While xFname$ <> ""
On Error Resume Next
picName = Left(xFname$, InStrRev(xFname$, ".") - 1)
picExt = Right(xFname$, Len(xFname$) - InStrRev(xFname$, "."))
If (UCase(picExt) = "JPG" Or UCase(picExt) = "JPEG" Or UCase(picExt) = "BMP") Then
ActiveSheet.Shapes.AddPicture xDirect$ & xFname$, True, msoCTrue, Range(picName).Left, Range(picName).Top, Range(picName).Width, Range(picName).Height
End If
xFname$ = Dir
On Error GoTo 0
Loop
End If
End With
End Sub
個人積分：40分
文章編號：38360888
Weekly Summary 81– From Sep 03_12 To Sep 07_12
每週總結 81 – 由 一二年九月三日 至一二年九月七日
http://sites.google.com/site/exceltkk2/excel-tutorial/weeklysummary81%E2%80%93fromsep0312tosep0712
謝。
個人積分：40分
文章編號：38407690
How to Check if active cell located on specific address
如何檢查選取中的儲存格是否在某特定的位置中
http://sites.google.com/site/exceltkk2/excel-tutorial/howtocheckifactivecelllocatedonspecificaddress
謝。
個人積分：40分
文章編號：38461876
Data Binding Effect for Selection Change With Image
儲存格選取轉變時進行數據連結
http://sites.google.com/site/exceltkk2/excel-tutorial/databindingeffectforselectionchangewithimage
謝。
個人積分：40分
文章編號：38526903
Weekly Summary 82– From Sep 10_12 To Sep 14_12
每週總結 82 – 由 一二年九月十日 至 一二年九月十四日
http://sites.google.com/site/exceltkk2/excel-tutorial/weeklysummary82%E2%80%93fromsep1012tosep1412
謝。
關閉廣告