昱得資訊工作室
麻辣學園
歡迎光臨, 訪客. 請先 登入註冊一個帳號.
2017-09-26, 12:51:09
昱得資訊工作室
首頁 說明 登入 註冊 想當作者?
新聞: 會員注意!!麻辣家族討論區已轉換新系統,請移駕[麻辣家族新論壇]!!


 1   MS Office 系列 / Excel程式區 / Re: 倒數計時器  於: 2012-08-15, 01:56:19 
發表者 projason | 最後發表 由 gong
檔案開啟後是否起動不完全

看起來好像沒東西

是否可以幫忙再看一下

 2   MS Office 系列 / Excelㄧ般區 / Re: excel 外部連結 到基智網做基金淨值的更新  於: 2010-05-04, 16:19:02 
發表者 copp | 最後發表 由 沙拉油
不確定是不是你要的

程式碼:
  Sheets("總表").Activate
  Application.Goto Range("a1"), True
  Dim sh As Worksheet
  Application.ScreenUpdating = False
  Set sh = Sheets.Add
  With sh.QueryTables.Add(Connection:="URL;http://www.funddj.com/y/yp/yp010001.djhtm?a=ALZ04", Destination:=Range("$A$2"))
    .WebSelectionType = xlSpecifiedTables
    .WebFormatting = xlWebFormattingNone
    .WebTables = "1,2"
    .Refresh BackgroundQuery:=False
  End With
  Dim rrng As Range
  Set rrng = sh.QueryTables(1).ResultRange
  rrng.Rows("2").Copy Sheets("淨值").Range("a65536").End(xlUp).Offset(1, 0)
  rrng.Rows("1:2").Copy Sheets("總表").Range("a1")
  Application.DisplayAlerts = False
  sh.Delete
  Application.DisplayAlerts = True
  Application.ScreenUpdating = True

 3   MS Office 系列 / Excel程式區 / Re: 網路查詢無法匯入  於: 2010-05-04, 15:50:48 
發表者 chwqk | 最後發表 由 沙拉油
「系統流量大,請稍後再查詢!」
應該是網站伺服器有限制流量,不讓你查詢。

 4   MS Office 系列 / Excel程式區 / Re: 依照相同名稱的數量,自動產生相對(品牌)合併儲存格數量  於: 2010-05-04, 00:27:25 
發表者 metrostar | 最後發表 由 metrostar
真的是棒級了
非常多謝帥哥學長
感恩加感謝您
完全可以達到耶
非常感動呢
您真是太強太強了
感謝您並祝賀您
幸福好運永遠降臨您身上

Sub Macro1()
Dim iI As Integer, iJ As Integer
Dim sStr As String

iJ = Range("a65535").End(xlUp).Row

For iI = 2 To iJ
 If Cells(iI, 1) = sStr Then
  Range(Cells(iI, 2), Cells(iI - 1, 2)).Merge
 Else
  sStr = Cells(iI, 1)
 End If
Next iI
End Sub

 5   MS Office 系列 / Excel程式區 / Re: 如何統計合併儲存格數量 ?  於: 2010-05-04, 00:14:49 
發表者 metrostar | 最後發表 由 metrostar
真的是棒級了
非常多謝帥哥板主
感恩加感謝您
完全可以達到耶
非常感動呢
您真是太強太強了
感謝您並祝賀您
幸福好運永遠降臨您身上


 6   MS Office 系列 / Excel程式區 / Re: 依照相同名稱的數量,自動產生相對(品牌)合併儲存格數量  於: 2010-05-03, 17:39:24 
發表者 metrostar | 最後發表 由 luhpro
我所想出來的程式如下,你參考看看 : (儲存格若需要設定顏色, 就請另外再自行加上囉)

Sub Macro1()
Dim iI As Integer, iJ As Integer
Dim sStr As String

iJ = Range("C65535").End(xlUp).Row

For iI = 2 To iJ
 If Cells(iI, 3) = sStr Then
  Range(Cells(iI, 4), Cells(iI - 1, 4)).Merge
 Else
  sStr = Cells(iI, 3)
 End If
Next iI
End Sub

 7   MS Office 系列 / Excel程式區 / Re: 將預設印表機改成指定印表機後列印之程式碼問題?  於: 2010-05-03, 17:20:02 
發表者 charles50w | 最後發表 由 luhpro
因為我目前還沒有權限下載檔案,所以僅能以猜測的方式回覆 :
你是指要如何才能直接設定到想要的印表機名稱嗎?

建議可以考慮以下兩種的方式 :

1. 陣列
ary = Array("Ne02:", "Ne05:", "Ne07:")
再用字串連結的方式把 ""HP LaserJet 5200L PCL 6 on " 與 ary(x) 合併成想要的印表機名稱即可
Application.ActivePrinter = sStr & ary(i)

2. Select...case...end select
Select Case i
 Case 1
  Application.ActivePrinter = "HP LaserJet 5200L PCL 6 on Ne02:"
 Case 2
  Application.ActivePrinter = "HP LaserJet 5200L PCL 6 on Ne05:"
 Case 3
  Application.ActivePrinter = "HP LaserJet 5200L PCL 6 on Ne07:"
End Select

 8   MS Office 系列 / Excel程式區 / Re: 如何使用在自訂義函數中調用工作表函數 TEXT?  於: 2010-05-03, 17:00:04 
發表者 guo4842 | 最後發表 由 luhpro
請試試看如下方式 :
Function TEST(ByVal MyNumber)
Dim DecimalPlace, ToSimplified
  MyNumber = WorksheetFunction.Text(MyNumber, "0.00")

  DecimalPlace = InStr(MyNumber, ".")
  If Len(MyNumber) = DecimalPlace + 2 Then
    ToSimplified = "人民幣" & Trim(Left(MyNumber, DecimalPlace - 1)) & "元" & Mid(MyNumber, DecimalPlace + 1, 1) & "角" & Mid(MyNumber, DecimalPlace + 2) & "分整"
  ElseIf Len(MyNumber) = DecimalPlace + 1 Then
    ToSimplified = "人民幣" & Trim(Left(MyNumber, DecimalPlace - 1)) & "元" & Mid(MyNumber, DecimalPlace + 1, 1) & "角整"
  Else
    ToSimplified = "人民幣" & Trim(MyNumber) & "元整"
  End If
  TEST = ToSimplified
End Function

若沒記錯你可能是從 EXCEL 的範例中找到的程式,
之前我試過那個範例確實在繁體版中用會有錯誤,
我猜那程式應該只適用 "英文版" EXCEL 吧?

 9   MS Office 系列 / Excel程式區 / Re: 中文大寫金額(文字)如何轉為數字  於: 2010-05-03, 16:40:22 
發表者 guo4842 | 最後發表 由 luhpro
 getnumber = getnumber & Application.Match(k, ar, 0) - 1  <----- 請問這是什麼意思呢??
 getnumber = getnumber & k  <----- 請問這是什麼意思呢

& : 將前後字串合併
假設 getnumber 原先為 "189", k 原先為 "5"
則 getnumber = getnumber & k 合併後的結果為 : "1895"

Application.Match(k, ar, 0) : 從 ar 陣列中找到對應的中文大寫文字
因為陣列的起始序列數為 1,
亦即 "零" 所找到的序列數為 1,
所以要將找到的元素序列數 1 減去 1 才是我們所要的 0

可是如[參兆柒仟貳佰壹拾壹億柒仟零壹萬肆仟零參拾元參角肆分]顯示[37211701403.34]應該是[3721170014030.34]才正確
那是因為程式本身並沒有考慮縮減文字的情形,
如果你的來源文字改成 "參兆柒仟貳佰壹拾壹億柒仟零佰零拾壹萬肆仟零佰參拾元參角肆分" 就可以正常解析出來,
當然若想要解析縮減文字的情形仍然是可以做到,
只是要判別的文字應該就需要包含 "兆億萬仟佰拾元" 等文字,
自然程式也就跟著會更複雜了.

 10   MS Office 系列 / Excel程式區 / Re: EXCEL的數學規劃  於: 2010-05-03, 15:39:06 
發表者 mu198512 | 最後發表 由 luhpro
依你上面的敘述來看應該是想求得遞迴函數的解, 若想呼叫可取得回傳值的函數時, 應採用 Function ...End Function 語法來呼叫:

 
' 主程式
Sub Macro1()
 Dim i As Integer

 i = 10
 Cells(1, 1) = F(i)

End Sub

' 想呼叫的遞迴函數
Function F(ByVal i As Integer)
 i = i - 1
 If i <= 0 Then
  F = 1
  Exit Function
 End If
 F = F(i) + F(i - 1)
End Function

因為手上沒有與遞迴函數相關的資料可以參考, 所以只能概略套用,
程式中倒數第二行就是遞迴函數的所在, 其中 :
F : 函數所傳回的值.
F(i) : 呼叫該函數

返回 版面首頁.


Google PageRank Checker
本頁花了 0.219 秒, 以及 20 次的資料庫查詢.