Qはじめまして。教えて欲しいのですが、オンラインゲームの、アカド戦記での転職方法がわかりません。始めたばかりでやっとレベル18になりました。ガイドブック見ても、転職の項目の画面(ページ)が見当たりません。転職をしてくれるNPCがいるのでしょうか?分かる方よろしくお願いします。また、長時間プレイしていると、仮想メモリーが足りませんと出てきてPCが重くなります。快適にプレイしようと、不要なプログラムは削除し、ディスククリーン等もしています。PCに入ってるのは、アカド戦記くらいなのですが、メイプルとは全然重さが違うのでしょうか?長くなりましたがよろしくお願いします。
BAベストアンサーがありません。
QExcel、VBAについて。生年月日を入力して一桁になるまで計算するプログラムを作りました。ムダが多いように思うのですが、何がムダか分かりません。どうかアドバイスをください。たとえば変数の名前など。B2に西暦、C2に月、D2に日にちを入れます。Sub sample1()'実際にない月日のときのエラー表示If Range("C2") = 2 And Range("D2") >= 30 Then MsgBox "月日の値は正しいですか?" ElseIf Range("C2") = (4 Or 6 Or 9 Or 11) And Range("D2") >= 31 ThenMsgBox "月日の値は正しいですか?" ElseIf Range("C2") >= 13 And Range("D2") >= 32 Then MsgBox "月日の値は正しいですか?" End If'ここから生年月日の計算'西暦を一桁ずつ足すDim goukei1 As Bytegoukei1 = 0 + Mid(Range("B2"), 1, 1) + Mid(Range("B2"), 2, 1) + Mid(Range("B2"), 3, 1) + Mid(Range("B2"), 4, 1)'月が二桁の場合If Len(Range("C2")) = 2 Then Dim w, x As Byte w = Mid(Range("C2"), 1, 1) x = Mid(Range("C2"), 2, 1) Dim kari1 As Byte kari1 = 0 + w + x '日が二桁のとき変数に収納1If Len(Range("D2")) = 2 Then Dim y, z As Byte y = Mid(Range("D2"), 1, 1) z = Mid(Range("D2"), 2, 1) Dim kari3 As Byte kari3 = 0 + y + z '出力Range("F2") = 0 + kari1 + kari3 + goukei1Range("G2") = 0 + kari1 + kari3Range("H2") = kari3'日が一桁のとき変数に収納1 ElseIf Len(Range("D2")) = 1 ThenDim kari4 As Bytekari4 = Range("D2")'出力Range("F2") = 0 + kari1 + kari4 + goukei1Range("G2") = 0 + kari1 + kari4Range("H2") = kari4End If '月が一桁の場合 ElseIf Len(Range("C2")) = 1 ThenDim kari2 As Bytekari2 = Range("C2") '日が二桁のとき変数に収納2If Len(Range("D2")) = 2 Then Dim n, m As Byte n = Mid(Range("D2"), 1, 1) m = Mid(Range("D2"), 2, 1) Dim kari5 As Byte kari5 = 0 + n + m'出力Range("F2") = 0 + kari2 + kari5 + goukei1Range("G2") = 0 + kari2 + kari5Range("H2") = kari5'日が一桁のとき変数に収納2 ElseIf Len(Range("D2")) = 1 ThenDim kari6 As Bytekari6 = Range("D2")'出力Range("F2") = 0 + kari2 + kari6 + goukei1Range("G2") = 0 + kari2 + kari6Range("H2") = kari6End If End If'月の合計(G2)がまだ二桁のときIf (Range("G2")) = 11 ThenElseIf Len(Range("G2")) = 2 Then Dim o, p As Byte o = Mid(Range("G2"), 1, 1) p = Mid(Range("G2"), 2, 1) Range("G2") = 0 + o + p End If
BAベストアンサーがありません。
QWindows XP Modeを使いたくて、DELLでWindows7 Professional 64bitのPCを購入したのですが、Windows Virtual PC がスタートメニュー→すべてのプログラムの中から見つかりません。これはPCを購入してからに自分で何か設定をしないといけないということですか?
BAベストアンサーがありません。
QフリーソフトのPDF Creatorは怪しい(危険な)ソフトですか?誤ってインストールしてしまいhttp://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1255662027のこちらの知恵袋さんで取り上げられていたため、なんとかbabylonをレジストリ検索で削除出来たのですがよくみてみるとこれ(foxtab)をインストするとsweetimもbabylonと一緒にインストされるみたいですが、レジストリで検索してもコンパネ→プログラムのアンインストールから見ても、スタート→すべてのフォルダ→検索でsweetimと探してみても見当たりません、そこで質問なのですが、このsweetimというのはどこかにまだ潜伏しているものなのでしょうか?すみませんが皆様の知恵をお貸し下さいませ、+セーフモードではなく通常起動で上記の事をやってしまいましたが問題ありますでしょうか?
BAベストアンサーがありません。
Q大至急お願いします。Fire Flie Copy というソフトを使ってファイルを移動したのですがメモリだけ減ってファイルがなかったので、もう一度しましたが、サーバー使用中、ほかのプログラムがビジー状態のため、この作業を完了できませんと出てきます。どうすればちゃんと移動できますか?・・・いや、移動はできていると思うのでどうすれば表示されますか?隠しフォルダ、更新しても変わりませんでした
BAベストアンサーがありません。
人気のプログラミングは、このWEBサイトがイチオシです♪