Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


18307 / 76732 ←次へ | 前へ→

【63868】Re:桁数が多いと勝手に指数で計算してうまく判定できない
発言  ichinose  - 09/12/24(木) 7:35 -

引用なし
パスワード
   おはようございます。

ついでに引き算

'===================================================================
Sub test2()
  Dim s1 As String
  Dim s2 As String
  s1 = "131"
  s2 = "125"
  [a1].Value = "'" & strsub(s1, s2)
  s1 = "3505100010000100010000200000402111111111"
  s2 = "35"
  [a2].Value = "'" & strsub(s1, s2)
End Sub
'=================================================================
Function strsub(ByVal str1 As String,ByVal str2 As String) As String
  Dim l1 As Long
  Dim l2 As Long
  Dim g0 As Long
  Dim g1 As Long
  Dim g2 As Long
  Dim g3 As Long
  Dim wk As String
  Dim hugo As String
  g0 = mystrcomp(str1, str2)
  hugo = ""
  If g0 = -1 Then
    wk = str1
    str1 = str2
    str2 = wk
    hugo = "-"
  End If
  If g0 = 0 Then
    strsub = "0"
  Else
    l1 = Len(str1)
    l2 = Len(str2)
    g3 = 0
    Do While l1 > 0 Or l2 > 0
     If l1 > 0 Then g1 = Val(Mid(str1, l1, 1)) Else g1 = 0
     If l2 > 0 Then g2 = Val(Mid(str2, l2, 1)) Else g2 = 0
     g0 = g1 - g2 - g3
     If g0 < 0 Then
       g0 = 10 + g0
       g3 = 1
     Else
       g3 = 0
     End If
     strsub = CStr(g0) & strsub
     l1 = l1 - 1
     l2 = l2 - 1
    Loop
    For g0 = 1 To Len(strsub)
     If Mid(strsub, g0, 1) <> "0" Then
       strsub = Mid(strsub, g0)
       Exit For
     End If
    Next
    strsub = hugo & strsub
  End If
End Function
'=======================================================================
Function mystrcomp(ByVal strnum1 As String,ByVal strnum2 As String) As Long
'  mystrcomp   1  strnum1>strnum2
'          0  strnum1=strnum2
'         -1  strnum1<strnum2
 
  Dim x As String
  Dim y As String
  x = Space(Application.Max(Len(strnum1), Len(strnum2)))
  y = x
  RSet x = strnum1
  RSet y = strnum2
  mystrcomp = StrComp(x, y)
End Function

0 hits

【63725】桁数が多いと勝手に指数で計算してうまく判定できない pon 09/12/3(木) 16:00 質問
【63726】Re:桁数が多いと勝手に指数で計算してうま... ichinose 09/12/3(木) 17:40 発言
【63787】Re:桁数が多いと勝手に指数で計算してうま... pon 09/12/15(火) 12:33 お礼
【63788】Re:桁数が多いと勝手に指数で計算してうま... pon 09/12/15(火) 12:49 質問
【63789】Re:桁数が多いと勝手に指数で計算してうま... Jaka 09/12/15(火) 13:42 発言
【63792】Re:桁数が多いと勝手に指数で計算してうま... pon 09/12/15(火) 16:52 質問
【63794】Re:桁数が多いと勝手に指数で計算してうま... よろずや 09/12/15(火) 19:34 回答
【63853】Re:桁数が多いと勝手に指数で計算してうま... pon 09/12/22(火) 15:26 質問
【63854】Re:桁数が多いと勝手に指数で計算してうま... Yuki 09/12/22(火) 15:50 発言
【63855】Re:桁数が多いと勝手に指数で計算してうま... pon 09/12/22(火) 16:58 質問
【63856】Re:桁数が多いと勝手に指数で計算してうま... pon 09/12/22(火) 19:07 お礼
【63857】Re:桁数が多いと勝手に指数で計算してうま... ichinose 09/12/22(火) 22:09 発言
【63867】Re:桁数が多いと勝手に指数で計算してうま... よろずや 09/12/23(水) 23:45 発言
【63870】Re:桁数が多いと勝手に指数で計算してうま... pon 09/12/24(木) 18:36 お礼
【63868】Re:桁数が多いと勝手に指数で計算してうま... ichinose 09/12/24(木) 7:35 発言
【63871】Re:桁数が多いと勝手に指数で計算してうま... pon 09/12/24(木) 18:40 質問
【63874】Re:桁数が多いと勝手に指数で計算してうま... ichinose 09/12/25(金) 7:25 発言
【63880】Re:桁数が多いと勝手に指数で計算してうま... pon 09/12/25(金) 15:00 お礼
【63797】Re:桁数が多いと勝手に指数で計算してうま... ichinose 09/12/15(火) 21:58 発言
【63802】Re:桁数が多いと勝手に指数で計算してうま... Yuki 09/12/16(水) 13:33 発言
【63881】Re:桁数が多いと勝手に指数で計算してうま... pon 09/12/25(金) 15:01 お礼

18307 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free