ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¤ñ¹ï¦r¦ê¤º¯S©w¸ê®Æ«á±Nµ²ªG¦X¨Ö¦r¦ê

[µo°Ý] ¤ñ¹ï¦r¦ê¤º¯S©w¸ê®Æ«á±Nµ²ªG¦X¨Ö¦r¦ê

¥»©«³Ì«á¥Ñ chthonicfreddy ©ó 2016-12-28 17:50 ½s¿è

Àx¦s®æA1¦r¦ê¡GA.B.C.01.02.03.04.05.06.07.08.09.10.11.102.104.109.  (¸¹½X¤£³sÄò)
¤ñ¹ï¸ê®Æ¤º®e¡G 01.  =  ¥Ò1
                             02.  =  ¥Ò2
                             03.  =  ¥Ò3   ......................(¸ê®Æ³sÄò)
¶Ç¦^µ²ªGB1¡G¥Ò1.¥Ò2.¥Ò3......
½Ð°Ý¦p¦ó¦Û©w¨ç¼Æ?

test.rar (7.47 KB)

test

  1. Function convert1(str As String) As String
  2. Dim arr(1 To 114), brr(1 To 114)
  3. For j = 1 To 114
  4.       arr(j) = Format(j - 4, "#00.")
  5. Next j
  6. arr(1) = "A.": arr(2) = "B.": arr(3) = "C.": arr(4) = "D."
  7. For j = 1 To 114
  8.       brr(j) = "¥Ò" & j
  9. Next j
  10. For j = 1 To 114
  11.    If InStr(str, arr(j)) > 0 Then
  12.       t = IIf(t = "", brr(j), t & "." & brr(j))
  13.    End If
  14. Next j
  15. convert1 = t
  16. End Function
½Æ»s¥N½X
¦^´_ 1# chthonicfreddy

TOP

¦^´_ 1# chthonicfreddy

¸Õ¸Õ¬Ý
    test.zip (14.82 KB)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 3# Hsieh


·PÁ¸­¤j¡BªO¤j¨ó§U
ªO¤jªº¸Ñµª¤w§¹¥þ¸Ñ¨M¤p§Ìªº°ÝÃD!!

TOP

¦^´_ 3# Hsieh


¦A½Ð°Ý¤@¤U
§Ú­×§ï¤F
For Each ky In ar
    If d(ky & Dot) <> "" Then Mystr = IIf(Mystr = "", d(ky & "."), Mystr & ky & Dot & d(ky & Dot))
Next

§Æ±æµ²ªG¬O
¥Ò101.¥Ò202.~
¥i¬Oµ²ªGÅܦ¨
¥Ò102.¥Ò203.~
·Q½Ð°Ý¤j¤jÀ³¸Ó¦p¦ó­×¥¿?

TOP

        ÀR«ä¦Û¦b : ºÉ¦h¤Ö¥»¥÷¡A´N±o¦h¤Ö¥»¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD