FreeCell Game
One of the most popular desktop Solitaire games is now here for the Pocket PC! You can purchase FreeCell individually or as part of the Pocket PC Entertainment PocketPak Direct from Microsoft for U.S. $29.95. これを日本で手に入れる方法を教えて下さい。

このQ&Aに関連する最新のQ&A

A 回答 (1件)

Currently, Microsoft Entertainment PocketPak is available for purchase in the U.S. and Canada only. International availability is coming soon.


待てませんか?

参考URL:http://www.microsoft.com/mobile/pocketpc/downloa …
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aと関連する良く見られている質問

QDocuWorks Deskでスキャンができない

DocuWorks Desk で「スキャン開始」すると「ネットワーク」ボックスがでてきますが「スキャナ名」が表示されず、スキャンができません。
スキャナーはプリンター&コピー&スキャナーのできる複合機で、プリンターとしてはちゃんとつながっています。

ヘルプを見ましたが、設定の仕方がわかりません。
どのようにしたら取り込めるようになりますか?

Aベストアンサー

XEROXだと思いますが、PCにはあらかじめ専用のTWAINスキャナドライバをインストールするんじゃないかな?付属品にインストール用ファイルが無いならWEBで検索されては?
そうすれば普通はネットワークスキャナで選択できると思います。

Qworksheet.find で Day(Now)

EXCEL マクロでworksheet.find で 特定の日付の並んだ列に
Day(Now) を判定基準にした所、2011/1/24 に判定処理を
かけたにもかかわらず、2011/11/24 がヒットします。
2011/1/24 もヒットするのですが、11/24 は明らかに
判定ミスなのですが、どうしてこのような事が起こるのでしょうか?

Sub ChkDate()
'
' ChkDate Macro
' マクロ記録日 : 2008/06/05 ユーザー名 : XXXXXX
'
Dim Rslt, firstaddress, targetrow, c
Dim Style, Title, Help, Ctxt, Response, MyString

'
Style = vbYesNo + vbInformation + vbDefaultButton2
Title = "Result"
Help = ""
Ctxt = 1000

Rslt = ""

Worksheets("LIST").Activate


With Worksheets("LIST").Range("B6:B28")
Set c = .Find(Day(Now), LookIn:=xlValues)
Rslt = ""
If Not c Is Nothing Then
firstaddress = c.Address
Do
Rslt = Rslt + Worksheets("LIST").Cells(c.Row, 1) + Chr(10) + Chr(13)
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstaddress
End If
End With

If Rslt = "" Then
Rslt = "No Match"
GoTo LabelEnd
End If

Response = MsgBox(Rslt, Style, Title, Help, Ctxt)
If Response = vbYes Then
MyString = Rslt
Else
MyString = "No"
End If

LabelEnd:

End Sub

EXCEL マクロでworksheet.find で 特定の日付の並んだ列に
Day(Now) を判定基準にした所、2011/1/24 に判定処理を
かけたにもかかわらず、2011/11/24 がヒットします。
2011/1/24 もヒットするのですが、11/24 は明らかに
判定ミスなのですが、どうしてこのような事が起こるのでしょうか?

Sub ChkDate()
'
' ChkDate Macro
' マクロ記録日 : 2008/06/05 ユーザー名 : XXXXXX
'
Dim Rslt, firstaddress, targetrow, c
Dim Style, Title, Help, Ctxt, Response, MyString

'
Style = vbYesNo + vbInfor...続きを読む

Aベストアンサー

原因の1つは、Day(Now) ですね。
これだと、「24」を探すことになります。
なので、1月24日 でも 11月24日 でもヒットすることになります。

Format(Date, "m月dd日") を探すようにして、LookAt:=xlWhole も追加しましょう。

"m月dd日"の部分は、実際の表示形式にあわせてください。

QFOR~NEXTで

よろしくお願いします。
条件が2個あるときの、繰り返し動作を下記のようにマクロにて組みましたが、うまく作動しません。

目的
Cells(q, 1)が空白で無い時で
Cells(q, 2)が空白ならば、Cells(q, 2)に”○”を記入する
上記を300回行う

で、作ったつもりなんですが、Cells(q, 1)が空白の箇所で終了してしまいます。

q = 1
For I = 1 To 300
If Cells(q, 1) = "" Then Exit For
If Cells(q, 2) = "" Then Cells(q, 3) = "○"
q = q + 1
Next I

よろしくお願いします。

Aベストアンサー

(1)カウンター変数i(アイ)を使っていながら、qという1づづカウントアップする変数を使うのは、無駄だと思います。
(2)Exit Forについて誤解があると思います。
Exit Forに該当する空白セルがあると、そこでForループを抜けるので、本件では終了します。
Nextの直前まで飛ぶ指令は無かったと思います。
敢えてやればGoTo文でになるのかな。
(例)他言語のcontinue文、Break文 参考に
http://oshiete1.goo.ne.jp/qa2027976.html
ーー
色々書けますが
For I = 1 To 300
If Cells(i, 1) = "" Then
else
  If Cells(i, 2) = "" Then
   Cells(i, 3) = "○"
  else
  End If
End If
Next I

QOffice 2008 for Mac

Office 2008 for Mac ファミリー&アカデミックを購入し、インストールしました。
不要になったためアンインストールしましたが、この場合
インストール可能なのは購入時と同じ3ライセンスとなるのでしょうか??

Aベストアンサー

こんばんは、

Kindon98様へ

疑うような書き方をして済みませんでした。思ってもなく早く、MSから確認が来ました。前回の書き込みの内容の訂正も含めて、改めて書かせていただきます。

ご質問者様へ

合計で3名×2 = 6 デバイス(PC) で間違いはありませんでした。
アンインストールすれば、再び、別のPCにインストールは可能ですね。
Windows 版とは、ずいぶん違いますね。製品としては、機能落ちということでしょうね。Win版でも同様のものがあれば、もっと良いのにね。なんとなく、この違いは何だろうなって思います。

一応、メールの内容をそのまま貼り付けるのは、『通信の秘密』の法律上の問題はないでしょうけれども、モラルとして問題があるかもしれませんので、その内容の丁寧文と一部を書き換えて、骨子だけを切り貼りさせていだたきます。

連絡の内容は、このように書かれていました。
-------------------------------------------
「Office 2008 for Mac ファミリー & アカデミック」は、家庭や教室で利用することを想定した製品である。

「Office 2008 for Mac ファミリー & アカデミック」は、異なる 3 名の方がそれぞれの所有デバイスで使用される場合には、各人ごとに個別に携帯用デバイスにインストールして使用することも許諾範囲となる。

そのライセンスでインストールされたデバイスを使用する人が、1名と限られる場合には、その人が1台の携帯用デバイスの利用が許される。(かなり、文章を加工したけれども、語順はそのままです。)
-------------------------------------------

こうやってみると、ライセンスは3つということになります。英文Q&A の内容には、A license と書かれてありましたから、ひとつだと思いましたが、英語版とは内容的にも違うかもしれません。それに、値段もずいぶん違いますね。

それにしても、これについては、どうも非公開の内容なのでしょうか。問い合わせで初めてわかるというのは、少し問題があるように思います。

参考として、以下を勧められました。
http://www.microsoft.com/japan/mac/products/Office2008/shop-now.mspx#com

こんばんは、

Kindon98様へ

疑うような書き方をして済みませんでした。思ってもなく早く、MSから確認が来ました。前回の書き込みの内容の訂正も含めて、改めて書かせていただきます。

ご質問者様へ

合計で3名×2 = 6 デバイス(PC) で間違いはありませんでした。
アンインストールすれば、再び、別のPCにインストールは可能ですね。
Windows 版とは、ずいぶん違いますね。製品としては、機能落ちということでしょうね。Win版でも同様のものがあれば、もっと良いのにね。なんとなく、この違いは何...続きを読む

QFor~Nextの使い方

こんにちは

Range("B19").Value = Application.WorksheetFunction.Sum(Range("B4:B17"))
Range("B55").Value = Application.WorksheetFunction.Sum(Range("B40:B53"))
Range("B91").Value = Application.WorksheetFunction.Sum(Range("B76:B89"))
Range("B127").Value = Application.WorksheetFunction.Sum(Range("B112:B125"))

上記を参考書等で見ながらやって見たのですが 動作しません。
For~Nextの使い方を教えて下さい。

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim x As Long, g As Long
For x = 19 To 127 Step 36
For g = 4 To 112 Step 36
Cells(x, "B").Value = Application.WorksheetFunction.Sum(Cells(g, "B"))
Exit For
Next
Next
End Sub

こんにちは

Range("B19").Value = Application.WorksheetFunction.Sum(Range("B4:B17"))
Range("B55").Value = Application.WorksheetFunction.Sum(Range("B40:B53"))
Range("B91").Value = Application.WorksheetFunction.Sum(Range("B76:B89"))
Range("B127").Value = Application.WorksheetFunction.Sum(Range("B112:B125"))

上記を参考書等で見ながらやって見たのですが 動作しません。
For~Nextの使い方を教えて下さい。

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Targ...続きを読む

Aベストアンサー

>Cells(x, "B").Value = Application.WorksheetFunction.Sum(Cells(g, "B"))
ってSUM関数でセル1個しか範囲としていませんよね?

Dim x As Long
For x = 19 To 127 Step 36
Cells(x, "B").Value = Application.WorksheetFunction.Sum(Range(Cells(x - 15, "B"), Cells(x - 2, "B")))
Next

とかではないの?


人気Q&Aランキング

おすすめ情報