CEL381.ミニロト攻略のプログラム

Q：（質問者：和歌山県satuki-massさん）
WindowsXP
ミニロト攻略のプログラムを考えています。
N個の候補数字を出した後、5つの数字の組み合わせを表示させたいのですが・・・

？？？？？？？？？？？？？？？？？？？？？？？

Ａ：
マクロ初心者の兵庫yuhkiです。

以下のマクロはいかがでしょうか？
1）新規のブックを作成します。
2）ALTキー＋F11キーでVBEを起動します。
3）メニューの[挿入]−[標準モジュール]を選択。
4）真っ白いページが出てきますので、以下のコードをコピペしてください。
（Sub・・・End Subまで）

Sub miniloto()
Dim mynocount As Integer
　'N個の数値の候補をこの変数に入れます。整数型です。
Dim mycount As Integer
　'カウンタ用の変数です。整数型です。
Dim myno As Integer
　'N個の候補から選んだ数値をこの変数に入れます。整数型です。
mynocount = Range("a1").Value
　'シートのA1セルに数値の候補数を入れておいてください。
mycount = 1
'カウンタ用の変数の初期値を1に設定しています。
Randomize
　'乱数形式の初期化をしています。
Do
myno = Int(Rnd * mynocount + 1)
　'Rnd関数を用いて乱数から候補数内の数値を計算します。
　　If Application.WorksheetFunction.CountIf(Range("a2:e2"), myno) = 0 Then
　　　'結果をA2からE2セルに出力しますが、その範囲に同じ数字がなければ・・・
　　　　Cells(2, mycount).Value = myno
　　　　　'セルに数値を出力します。
　　　　mycount = mycount + 1
　　　　　'カウンタ変数を1上げます。
　　End If
Loop Until mycount > 5
　'数値を5個選ぶまでこの処理を繰り返します。
End Sub

先頭に「'」がついた行は説明のための行ですので、見づらい場合は削除してください。
シートのA1セルの数値を基に5つの候補を選び出します。
結果はA2からE2セルに出力されます。
5）メニューの[終了してEXCELに戻る]を選択。
6）A1セルに候補数を入力。
7）ALTキー＋F8キーでマクロのボックスが開きますので、minilotoを選択して実行。
8）A2からE2セルに結果が出力されます。

当たるといいですね。
ではでは。　[質問一覧]／[HOME]

CEL382.Word文書で日付の固定

Q：（質問者：静岡県TakaTakaさん）
Windows2000
ExcelでTODAY関数を使っていて、保存のために日付を固定するにはセルをダブルクリックしてF9を押しますが、Word文書で日付を固定して保存することはできますか？
職場でテンプレートを使ってビジネス文書を作成していますが、保存して後日開くと、日付も開いた日付に更新されてしまいます。
保存する時にどうしたら作成日のままで開けるのでしょうか？
自動にせず手入力するしかないのでしょうか？　教えて下さい。
よろしくお願い致します。

？？？？？？？？？？？？？？？？？？？？？？？

Ａ：
WORD初心者の兵庫yuhkiです。

メニューから挿入されてはいかがでしょうか？
1）日付を入力したい箇所をクリック。
2）メニューの[挿入]−[日付と時刻]を選択。
3）「表示形式」、「言語の選択」、「カレンダーの種類」をそれぞれ設定。
4）「自動的に更新する」にチェックが入っていないことを確認して「OK」。

ご希望に合ってないかも。
ではでは。　[質問一覧]／[HOME]

CEL383.コメントが突然ローマ字に

Q：（質問者：北九州市ikedaさん）
初心者ですが、エクセルのコメントの表示で自分の名前が突然ローマ字になりました。
それまでは漢字だったのですが、元に戻す方法をお願いします。
WINDOWS XP　　Ｏffise XP

？？？？？？？？？？？？？？？？？？？？？？？

Ａ：
兵庫yuhkiです。

メニューの[ツール]−[オプション]−[全般]タブの「ユーザー名」ですが、どのようになっていますか？　
ここの設定がコメントに反映するようですので、ここを変更してみてください。

はずしてたら、ごめんなさい。
ではでは。　[質問一覧]／[HOME]

CEL384.絵記号の合計を自動計算で

Q：（質問者：神奈川県minamiishiさん）
絵記号のセルを入力時、そのセルの行にある同じ絵記号のセルを合計し数字で出したいのですが、可能ですか？
エクセル2000を使用していますのでお願いします。

？？？？？？？？？？？？？？？？？？？？？？？

Ａ：
兵庫yuhkiです。

1）絵記号が入っているセルの個数をカウントするなら、入力した絵記号のセルをA1、データが入力されている行が1行目として、別の行に以下の式を入力します。
=COUNTIF(1:1,A1)-1
1を引くのは、入力された絵記号をカウントからはずすためです。
2）絵記号に対応して数値が入力されているなら、
入力した絵記号のセルをA1、合計を出すセルをA2、データが入力されている行がA3からA10セルとして、A2セルに以下の式を入力します。
=SUMPRODUCT((A3:A10=A1)*(A3:A10))
配列の中で論理式（A3:A10=A1）を使用するとTRUE(1)、FALSE(0)で値を返します。
これを各要素にかけると条件に合致したセルの値が抽出でき、合計することが出来ます。

ご希望に合ってます？
ではでは。　[質問一覧]／[HOME]

CEL385.数式を保存したい

Q：（質問者：愛知県nonkoさん）
WindowsMe
毎月シートを10枚ほど使ってデータの集計をしているのですが、月が変わる度に前月のブック全体の数値を消して新しい月の集計をやり直しています。
数値を消すと前月にせっかく入れた数式まで消えてしまうので、また数式も新たに入れなおしています。
数値だけ消して数式はそのまま前月使ったブックを利用して新しい月のデータの集計はできないでしょうか？
よろしくお願いいたします。

？？？？？？？？？？？？？？？？？？？？？？？

Ａ：
兵庫yuhkiです。

1．入力した数値のみを削除します。
1）入力範囲全体を選択（できれば項目名等は除かれたほうが良いと思います）
2）メニューの[編集]−[ジャンプ]−[セル選択]を選択
3）ボックスが出てきますので、「定数」、「数値」をチェックして「OK」
4）範囲内で入力した数値だけが選択されていることを確認してDELETEキーで消去

これを全てのシートで繰り返します。

2．数式だけが入ったブックを読み取り専用にします。
毎月、同じ内容で更新されているなら、1で出来た数式だけが入っているブックを基ブックにされてはいかがでしょうか？　
但し、私のようにうっかりして基ブックにどんどん入力していくと、また1の作業を繰り返さないといけませんので、読み取り専用にして、保存される場合は、別名で保存するようにしてください。

読み取り専用にするには、
1）エクスプローラからこのファイルを右クリック選択
2）メニューから[プロパティ]を選択
3）[属性]で「読み取り専用」をチェックして「OK」

3．事情があって1の操作を毎月繰り返さないといけない場合

があるのかどうかわかりませんが、1の操作をマクロで記述すると以下のようになります（自動記録で出来ますよ）。

Sub Macro1()
　　Selection.SpecialCells(xlCellTypeConstants, 1).Select
　　Selection.ClearContents
End Sub

Selection：選択されているセルを表します。
SpecialCells：ジャンプによるセル選択のコードです。
xlCellTypeConstants：セル選択で選択される内容を表すコードです。Constantですから定数ですね。
そのあとの1はセル選択で現れるボックス内の数値・文字・論理値・エラー値を表します。
1ですから1番目の数値になります。
ClearContents：セルの中身を消去します。

これをブックに記録しておけば、最初にセル範囲を選択しておいて、ALTキー+F8キーでマクロを実行すれば、1が簡単に行えます。

上手く良くといいですね。
ではでは。　[質問一覧]／[HOME]