日付の値が変更されます

Question

私は多くのスプレッドシートに基づいてデータベースを作成しようとしています。私は、必要な情報をきちんとフォーマットされたテーブルに引き出す多くのスプレッドシートを目指しています。私はちょうど始めたので、私は必要なものを引き出すためにいくつかの関数を書いています。私はそれらを変数に格納して、テーブルに入れます。

私は検索文字列の範囲書かれており、その隣のセル内の情報を引き出すしている機能。それは文字列のためにうまくいくようです。

誰もが日付で何が起こっているかを説明できますか？英国の形式dd/mm/yyyyで日付を出力したい。現在、有効期限の01/06/2018の次の日付は英国形式です。私がそれをデバッグして印刷物を入れると、それは英国の形式で出てきます。それが格納されているセルのフォーマットをチェックすると、それが返されるセルは両方ともUKフォーマットです。それは06/01/2018として出てきます。

可能な場合には、何が起こっているかの説明が答えに含まれてではなく、私はそれが実際にそれを解釈する方法を学ぶことができるようにソリューション「ただ、これにコードを変更」されるだろうか？

ご協力いただければ幸いです。

ここでコード

Private Sub Main() 

'Turn off screen updating 
Application.ScreenUpdating = False 

'Define the variables 
Dim Coverholder As String 
Dim SearchRange As Range 

'set the range to search 
Set SearchRange = Sheets("2017 Property").Range("A1:AZ100") 

'testing 
Range("A1").Value = GetNextTo(SearchRange, "*Expiry*") 

Debug.Print GetNextTo(SearchRange, "*Expiry*") 

'Reset the position of the selection 
Range("A1").Select 

'Turn on the screen updating 
Application.ScreenUpdating = True 

End Sub 

'Function to return the value one cell to the right of a search value 
Private Function GetNextTo(SearchRange As Range, FindString As String) As String 

    'Define variables 
    Dim Rng As Range 

    'Clean the string 
    If Trim(FindString) <> "" Then 
     'use the search range 
     With SearchRange 
      Set Rng = .Find(What:=FindString, _ 
          After:=.Cells(.Cells.Count), _ 
          LookIn:=xlValues, _ 
          LookAt:=xlWhole, _ 
          SearchOrder:=xlByRows, _ 
          SearchDirection:=xlNext, _ 
          MatchCase:=False) 
      'If value found 
      If Not Rng Is Nothing Then 

       Application.Goto Rng.Offset(0, 1) 

      'If value not found 
      Else 

       MsgBox "Nothing found" 

      End If 
     End With 
    End If 

    GetNextTo = ActiveCell.Value 

End Function 

Answer 1

これは（私の知る限り）何が起こるかあるのです：Excelで

日付は（例えば）dd.mm.jjjjとして表示されますが、そのように保存されていませんが、 。あなたはこのように細胞内の日付を印刷して、これをテストすることができます。

を実行し、最初のセルに12.11.1985を入力して、新しいWBを作成します。

Sub test() 
'returns value of cell properly formated (but not always as displayed in the cell) 
Debug.Print Cells(1, 1).Value 
'returns the actual value of the cell 
Debug.Print Cells(1, 1).Value2 
End Sub 

.Value2実際の値である31363を返します。セル内にある。この値は、さまざまな設定と抽出する関数に応じて、さまざまな方法で解釈されます。溶液は、溶媒として

、@Doomeniksコメントを参照してください。

編集：Doomenikは、綿密これよりはるかにいくつかの優れた答えを、リンクされました。