- ベストアンサー
和暦年が表示できない
molly1978の回答
No1,No3です。 文字列として入力するなら、 ActiveCell.Value = "‛" & TextBox2.Value & "/" & ComboBox25.Value & "/" & ComboBox26.Value としたらどうですか。
関連するQ&A
- Access での 「年」 のみの和暦変換について
Accessで今、レポートの作成をしているのですが、その時に「数値」で持っている西暦の年度（例,2004）を和暦で表示する作業を行っています。 「年月日」がある日付型のデータに関しては、Format([年月日],"ggge")で表示されるのですが、数値で持っている４桁の数字に関しては、上記のように書くと突拍子も無い和暦が算出され、ちゃんとした和暦変換がなされないようです。 年度だけをDataとして持ちたいので、日付型で持つ訳にもいきません。解決策が見つからずに困っています。 どなたか、解決策をご提案いただける方、ご回答をお願いします。
- ベストアンサー
- Windows XP
- アクティブセルに制限をつけるには・・・
ユーザーフォーム上のテキストボックスの値をアクティブセルに転記しているのですが、D列のみのアクティブセルにするにはどうしたらいいでしょうか？ご教授お願い致します。構文は以下の通りです。 Private Sub CommandButton1_Click() ActiveCell.Value = TextBox1.Text ActiveCell.Offset(, 1) = TextBox2.Text ActiveCell.Offset(, 2) = TextBox3.Text End Sub
- ベストアンサー
- オフィス系ソフト
- 日付の年を和暦（西暦）とする表示書式
お世話様です 日付を和暦年（西暦年）月/日と表示する 表示形式をユーザ定義で ggge"年"(yyyy"年") m"月" d"日" 令和４年（４年）５月１３日 と表示されます 令和４年（2022年）５月１３日 と表示するユーザ定義は？ 因みにyyyy"年"ggge"年") m"月" d"日"とすると 2022年（令和4年）5月13日となりますが
- ベストアンサー
- Excel（エクセル）
- アクセスでレポートに和暦を表示させるには
アクセスで社員名簿を作成しています テーブルを 社員名 ○○○○ 生年月日 1953/09/18 生年月日 空欄 フォームは 社員名 ○○○○ 生年月日 1953/09/18 和暦 昭和28年09月18日 ↑生年月日を入力すると自動で表示されるようにしました レポートは 社員名 ○○○○ 生年月日 1953/09/18 和歴 空欄 上記で理解して頂けるか大変不安ですがフォームで和暦を手入力していないのでテーブルに反映しません それに伴ってレポートも表示されません どうしたらレポートへ和暦を表示することが出来るのでしょうか
- ベストアンサー
- Windows XP
- VB2008で和暦の表示について
VB2008で和暦を扱いたいときは、JapaneseCalendarクラスを使う方法以外に、VB6のときのように Format(Now, "ggg e年m月d日 aaaa") というようなFormat関数で簡単に書式設定する方法はないのでしょうか。
- 締切済み
- Visual Basic
- 和暦→西暦（有効範囲を考慮）
いつもお世話になってます。 VB2010（.NET2.0）、Winアプリ 和暦（元号）と西暦の相互変換についてです。 CultureInfo、JapaneseCalendarを使用して変換しています。 西暦→和暦の変換は問題ないんですが 和暦→西暦の変換時に有効ではない和暦を指定するとエラーとなります。 ここの「有効ではない和暦」というのは例えば「大正30年」とかです。 フォーム上にComboBoxとTextBoxが配置されており ComboBoxには「明治」「大正」「昭和」「平成」を格納、 TextBoxは数値入力のみですが2桁数値というだけで 他の制限はかけていない状態です。 各元号に有効な値を保持しといてって方法は最終手段です。 出来るだけ汎用性を持たせた形で上記エラーを回避したいと思っています。 思いついてる方法はあまりスマートではないので どなたか、こんな風にコーディングすれば出来るよって ヒントでもいいのでご意見いただけると幸いです。 よろしくお願いしますm(_ _)m
- ベストアンサー
- Visual Basic
- word2002の差込印刷でExcelで作った生年月日を和暦にしたい
データはエクセル２００２です。生年月日の列は、1975/7/10というように入力し、和暦表示させています。 ワード２００２でラベルの差込印刷をし、生年月日フィールドは { MERGEFIELD "生年月日" \@ "ggge年M月d日"} 修正しましたが、何度訂正しても e年7月10日と表示されます。 どうしたらよろしいのでしょうか？ 対処法を教えてください。よろしくお願いします。
- 締切済み
- Windows XP
- Excel ユーザーフォーム呼び出し時エラー
WindowsVista HomePremium Excel 2007 Microsoft Visual Basic 6.5 です。 Excelでユーザーフォーム（UserForm1）を作り、 Sub Auto_Open() UserForm1.Show End Sub で起動時に呼び出すようにしました。 確認のため、一度Excelを閉じ起動し直したところ正常に動作しました。 もう一度確認のため同じように再起動をすると、 実行時エラー '2110': コントロールが表示されていない、利用できない、またはフォーカスを持てないため、そのコントロールにフォーカスを移すことはできません。 と出て、それ以降何度やっても動作しなくなってしまいました。 解決法か原因がわかる方いらっしゃいましたら、ぜひご教授ください。よろしくおねがいします。 ユーザーフォーム関係のコードを以下に書いておきます。（内容は小遣い帳のようなものです。） ―――――――――――――――――――― Private Sub CommandButton1_Click() Dim NUM As Integer If TextBox1.Text = "" Then MsgBox "概要が記入されていません。" TextBox1.SetFocus GoTo 100 ElseIf TextBox2.Text = "" Then MsgBox "収支が記入されていません。" TextBox2.SetFocus GoTo 100 ElseIf ComboBox1.ListIndex = -1 Then MsgBox "収支の種類が選択されていません。" ComboBox1.SetFocus GoTo 100 End If Range("F6").Select NUM = 0 Do While ActiveCell.Offset(NUM, 0) <> "" NUM = NUM + 1 Loop ActiveCell.Offset(NUM, 0).Select ActiveCell = TextBox1.Value If CheckBox1 = True Then TextBox2 = -TextBox2 End If If ComboBox1.ListIndex = 0 Or ComboBox1.ListIndex = 1 Then ActiveCell.Offset(0, ComboBox1.ListIndex + 1) = TextBox2.Value Else ActiveCell.Offset(0, ComboBox1.ListIndex + 2) = TextBox2.Value End If TextBox1 = "" TextBox2 = "" CheckBox = Falses ComboBox1.ListIndex = -1 100 End Sub ―――――――――――――――――――― Private Sub CommandButton2_Click() Dim NUM As Integer If TextBox3.Text = "" Then MsgBox "移動金額が記入されていません。" TextBox3.SetFocus GoTo 100 ElseIf ComboBox2.Text = "" Then MsgBox "移動元が選択されていません。" ComboBox2.SetFocus GoTo 100 ElseIf ComboBox3.ListIndex = -1 Then MsgBox "移動先が選択されていません。" ComboBox3.SetFocus GoTo 100 End If Range("F6").Select NUM = 0 Do While ActiveCell.Offset(NUM, 0) <> "" NUM = NUM + 1 Loop ActiveCell.Offset(NUM, 0).Select ActiveCell = "移動" If ComboBox2.ListIndex = 0 Or ComboBox2.ListIndex = 1 Then ActiveCell.Offset(0, ComboBox2.ListIndex + 1) = -TextBox3.Value Else ActiveCell.Offset(0, ComboBox2.ListIndex + 2) = -TextBox3.Value End If If ComboBox3.ListIndex = 0 Or ComboBox3.ListIndex = 1 Then ActiveCell.Offset(0, ComboBox3.ListIndex + 1) = TextBox3.Value Else ActiveCell.Offset(0, ComboBox3.ListIndex + 2) = TextBox3.Value End If TextBox3 = "" ComboBox2.ListIndex = -1 ComboBox3.ListIndex = -1 100 End Sub ―――――――――――――――――――― Private Sub CommandButton3_Click() Unload Me End Sub ―――――――――――――――――――― Private Sub CommandButton4_Click() Unload Me End Sub ―――――――――――――――――――― Private Sub UserForm_Initialize() myarray1 = Array("収支", "クレジット", "郵便局", "机", "500", "1") For i = 0 To 5 ComboBox1.AddItem myarray1(i) ComboBox2.AddItem myarray1(i) ComboBox3.AddItem myarray1(i) Next i TextBox1.SetFocus End Sub
- ベストアンサー
- オフィス系ソフト
- Excel VBA テキストボックスに当日の日付
Excel 2013において、VBAで入力フォームを作成中の初心者です。 入力フォームの中に日付の項目があり、テキストボックスに手入力しています。 そのテキストボックスに当日の日付を自動で表示させたく、ネットで調べ試しましたが、うまくいきません。 やりたいこととしては、テキストボックスに今日の日付を自動的に和暦で表示させ、その日付を変更する場合には、「2016-12-03」などと入力後、和暦に自動的に変換して表示させたいのです。 手入力において、「2016-12-03」と入力後、自動的に和暦に変換するコードはネットで見つけることができ、うまくいったのですが、当日の日付を自動的に表示させる方法がわからずにおります。 日付を手入力後、和暦で表示させるコードは以下のようにしてあります。 Private Sub textbox1_AfterUpdate() With Me.textbox1 If IsDate(.Value) Then .Value = Format(.Value, "ggge年m月d日") End If End With End Sub どなたか、教えていただけると助かります。 よろしくお願いいたします。
- ベストアンサー
- Excel（エクセル）
- WORD差し込み印刷：文字+日付データを和暦表示
WORD 2007 差し込み印刷で、日付データの前に"受験年月日："を表示し、更に日付を和暦で表示できるようにしたいのですが、うまくいきません。 ”受験年月日”に日付けがある人もいれば、ない人もいます。 そこで、Wordの差し込み印刷機能を使い、各個人の備考欄に”受験年月日”に日付けがある人は、 受験年月日：平成23年8月1日 と表示させたいのです。 { MERGEFIELD 受験年月日 \@ "ggge年M月d日" }で和暦表示まではできるのですが、これに受験年月日：をくっつけることができずに困っています。 ご存知の方、ご教示ください。
- ベストアンサー
- オフィス系ソフト
お礼
No1,No3様 ありがとうございました。 これで解決しました。 これからもよろしくお願いします。