2012-08-01から1ヶ月間の記事一覧
例 クラス名が"Sendinquiry"で @WebServlet("/SendInquiry") だったりすると、大文字小文字の相違が見分け難く、「なんで404?」状態になる。
まず範囲選択後、「編集」―「ジャンプ」(Ctrl+Gでも)を開きます。「ジャンプ」のダイアログで「セル選択」ボタンを押して「可視セル」にチェックを入れて 「OK」を押すと選択範囲内の表示されているセルのみ選択されますので そこで貼り付けてみてください…
Excel豆知識30:エクセル:ピボットテーブルのデータの更新 http://www11.plala.or.jp/koma_Excel/contents3/mame3030/mame303001.html自動更新 動的に範囲変更 データの更新 ピボットテーブルのデータをリストの更新の状態に更新するには、必要の都度更新する…
Application.ScreenUpdating = False Application.ScreenUpdating = True
$ sudo add-apt-repository 'deb http://archive.canonical.com/ lucid partner' $ sudo apt-get update $ sudo aptitude install sun-java6-jdk
バイナリデータを扱うとき(jpeg,wav...) メモリ書き込み順に気を付ける。小さい順か、大きい順か。
▼操作方法:COUNTIF関数で「○○を含む」という条件を指定してカウントする ※C11:C20セルで「右」という文字を含むセルをカウントする例「=COUNTIF(C11:C20,"*右*")」 という数式を入力する
Sub 列全体をコピペ() 'アクティブシートの列コピペ&列削除 With ActiveSheet'列コピペ .Columns("O:O").Copy Columns("E:E")'列削除 .Columns("F:O").DeleteEnd WithEnd Sub
Option Explicit Sub SheetUnion() Dim i As Integer 'ループ用 'i = 0 'ファイル名をシート名にする。注:"-4"とは".xls"の4文字分を除くため。 Dim Filename As String Filename = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4) '1枚目のシートに"…
Option Explicit Sub 本体を赤く() ' ' 本体を赤く Macro ' ' Dim i As Integer For i = 1 To Sheets.Count Worksheets(i).Activate '■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ Cells.Select Selection.FormatConditions.Add Type:=xlTextString, String:="本…
Sub 商品名を入力() Dim flag As Boolean Dim i As Integer '行数 Dim j As Integer 'シート数 For j = 1 To Sheets.Count If flag = True Then flag = False 'フラグのデフォルトはfalse End If Worksheets(j).Activate For i = 1 To LastRow(ActiveSheet, …
Sub 商品名を入力() Dim flag As Boolean Dim i As Integer flag = False 'フラグのデフォルトはfalse For i = 1 To LastRow(ActiveSheet, 1) 'A列の最終行まで。 'フラグ無、かつ、"本体"、でフラグ有へ If flag = False Then If ActiveSheet.Cells(i, 1).V…