Yamatokenのプロフィール

@Yamatoken Yamatoken
ありがとう数27
質問数2
回答数26
ベストアンサー数
7
ベストアンサー率
53%
お礼率
100%

  • 登録日2007/02/14
  • ランチの女王

    羞恥心の上地雄輔さんが、ランチの女王に出ていたらしいのですが、誰役で出ていたのか教えてください。あるいは「第何話で登場」などの表現でも構いません。

  • このコードを実行するとエクセルがフリーズしてしまいます。

    とある為替データファイル(600KB)の編集をマクロで実行したい(何度も新規で編集するため)のですが画面がフリーズしてしまいます。たまに最後まで出来ます。長すぎるのでしょうか。省略できる部分があったら教えて欲しいです。(初心者です) 以下そのまま添付 Sub 画面を固定() Application.ScreenUpdating = False End Sub Sub いち() Call 画面を固定 Cells.Select With Selection.Font .Size = 9 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = xlAutomatic End With 'セルの結合を解除・折り返して全体を表示するの解除・文字を左詰で表示 With Selection .WrapText = False .Orientation = 0 .AddIndent = False .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False .HorizontalAlignment = xlLeft '(文字を左詰で表示) End With '列の幅 Selection.ColumnWidth = 2.38 '行の幅 Selection.RowHeight = 12 '列の幅を自動調整 Cells.Select Cells.EntireColumn.AutoFit 'A列の調整 Columns("A:A").ColumnWidth = 3 '不要行削除 Range("a:a,c:c,e:H,J:R,T:U,X:AA,AC:AO,AQ:Au,Aw:BB,BD:BG,BI:CC").Select Selection.Delete Shift:=xlToLeft '円マークを取る Cells.Replace What:="\", Replacement:="", LookAt:=xlPart, SearchOrder:= _ xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False '円の列の書式 Range("K:K,I:I").Select Selection.NumberFormatLocal = "#,##0_ ;[赤]-#,##0 " ' 列の入れ替え() '(建時) Columns("G:G").Select Selection.Cut Columns("B:B").Select Selection.Insert Shift:=xlToRight '(建値) Columns("G:G").Select Selection.Cut Columns("C:C").Select Selection.Insert Shift:=xlToRight Columns("H:H").Select Selection.Cut Columns("e:e").Select Selection.Insert Shift:=xlToRight 'スクロールで画面左に戻る ActiveWindow.ScrollColumn = 1 '仕切取引まで行削除 On Error GoTo line x = Application.WorksheetFunction.Match("仕切取引", Columns("A:A"), 0) If x = 1 Then Exit Sub Else Rows("1:" & x - 1).Delete End If Exit Sub line: MsgBox "見当たりません", vbCritical, "(>_<) " '一行目(仕訳取引)削除 Rows("1:1").Select Selection.Delete Shift:=xlUp 'オートフィルタ Rows("1:1").Select Selection.AutoFilter '不要列にかかったフィルタを削除 Columns("L:CE").Select Selection.Delete Shift:=xlToLeft End Sub よろしくお願いします。

    • noname#150256
    • 回答数4
  • シャットダウン後にHDDの電源が落ちない

    似たような投稿はありましたが…。 つい昨日(8/8)に、Vistaのセットアップが完了し、使用していました。電源オプションを「スリープ」ではなく「シャットダウン」できるように設定変更したのですが、シャットダウン処理後、HDDの電源が落ちません。 セットアップ後、Windows Updateが自動で実行され、修正プログラムのダウンロードのみ行ってまして、シャットダウン処理時にインストールが実行されました。 修正PGMのインストールが終了後、シャットダウンが完了しましたが、HDD(筐体)の電源は入りっぱなしでした。 夜が明けても変わらず、電源ボタンを長押しし、強制的に電源を落としてしまいました。 イベントログを確認しましたが、シャットダウン処理時にエラーログは見つからず、正常に終了していると思います。 どうしたら自動でHDDの電源も落とせるでしょうか? OS:Windows Vista Home Plemium CPU:Core 2 Duo T7200 メモリ用量:1GB 皆様、よろしくお願いします<m(__)m>

  • プログラマ?システムエンジニア?の違い

    すいません。 初歩的な事を教えてください。 私はプログラマとして採用されました。 最初は少しだけ、プログラムを組んだ事もありますが、最近は設計中心です。 友達に聞くと設計書に基づいてプログラムを組むのがプログラマでお客さんの要望を聞いて設計(外部設計・内部設計など)する人はシステムエンジニアなんじゃないの?って言われました。 もしそうだとすると私の職業はどちらなのでしょう? プログラマとシステムエンジニアの線引きはどう違うのでしょうか?

    • noname#36512
    • 回答数5
  • 外付けHDDのエラー

    Maxtor製の外付けHDD〈DiamundMax 16 250GB 〉を使用してましたが、突然『ブ…ブ…プピルプピル』みたいなよくわからないブビー音が鳴り PCに接続しても反応しなくなりました… 大事なデータが入っていたのでとてもショックです… もう壊れたという証拠なのでしょうか? なにかご存知の方なんでもいいですので教えてくれないでしょうか。 よろしくお願い申し上げます。