Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10 Home : 指定なし)
データフォームについて
投稿日時: 19/11/04 17:02:22
投稿者: komaru

エクセルのVBA初心者です。よろしくお願い致します。
 
エクセルで顧客管理できるように顧客のリストを作成しており、別のシートにボタンを作成して、そのボタンをクリックすることで顧客リストのシートを表示させ、顧客リストをデータフォームで表示させ編集できるようにマクロを作成し、実行したところ日付の入ったボックスの日付が、mm/dd/yyyyで表示されてしまいます。
 
Sub 変更修正()
'
    Sheets("顧客マスター").Select
    Range("A1").Select
    ActiveSheet.ShowDataForm
 
End Sub
 
顧客リストのシートのセルの中はyyyy/mm/ddで入力されているのですが、yyyy/mm/ddで表示させる方法は無いでしょうか?
 
基本的な事を間違っているのかもしれませんが、よろしくお願い致します。

回答
投稿日時: 19/11/04 20:17:30
投稿者: simple

事象確認しました。
これはMS社によるLocalizationの不備ですかね。
手作業ですると普通に2019/11/4と表示されるが、
マクロから実行すると逆になりますからねえ。
 
フォームの中の作業をマクロ化することはできないのでしょうから、
起動も手で実行するというのが、現実的な対応ではないでしょうか。

回答
投稿日時: 19/11/04 21:32:31
投稿者: Abyss2

下記方法でどうぞ。

Sub 変更修正2()
'
    Sheets("顧客マスター").Select
    Range("A1").Select
    'ActiveSheet.ShowDataForm
    Application.CommandBars.ExecuteMso "DataFormExcel"
 
End Sub

回答
投稿日時: 19/11/04 21:51:56
投稿者: simple

ああ、なるほど、そういう手がありましたか。
ありがとうございます。

投稿日時: 19/11/05 00:43:29
投稿者: komaru

simpleさん、Abyss2さん、ありがとうございました。
 
あきらめていましたが、助かりました。