paku_iのプロフィール

ソーラーシステムを家庭にとりつけている家があるように、風力発電を自宅にとりつけている人はいるのでしょうか。

エクセルにおいて、たとえば上から順に検索していき、14番目をほかのシートにコピーしたいときに、以下の記述ではまずいでしょうか。 基本的にrangeやCellsの中に変数を組み込む方法がわかりません。 以下の方法で行うと、エラーが帰ってきました。 For J = 1 To 100 + 1 Select Case J Case 14 Sheets("kanryou").Select Range(Cells(J + Endd, 1), Cells(J + Endd, 1)).Select Selection.Copy Sheets("nukitori").Select Range(Cells(K, 1), Cells(1, 1)).Select ActiveSheet.Paste Application.CutCopyMode = False K = K + 1 Case Else End Select Next

質問があります。 現在、一人暮らししていて、ずっと携帯を使っていたのですが、 やはりネットも使うので電話契約したいと思っています。 でも新規契約をすると8万円ほどかかかるので、なんとかして 安く済みたいと思っています。質屋などいけばいいと聞きますが、 4万円くらいで取得できるとこないでしょうか。 どういうとこにいけば、いいのでしょうか。3年くらいのレンタルなら 新規契約したほうがお得なのでしょうか。 教えてください。また渋谷～有楽町くらいまでで電話契約で安い店 知ってる方教えてください。よろしくお願いします。

みなさん、こんにちは。今、社員の給与データをもとにExcel2000 で ある集計をとるマクロを組んでいて、下記のような「給与額が０円の データのみ削除する」マクロを組みました。 Sub データ削除() Sheets("Sheet1").Select Range("A1").Select Dim 行 As Long For 行 = 6226 To 2 Step -1 With Cells(行, 7) If .Value > 0 Then Exit For If .Value = 0 Then Rows(行).Delete End With Next End Sub このマクロで正しく動いているのですが、 For 行 = 6226 To 2 Step -1 の構文の 6226 が問題で、これは 6226行目から上に向かって行を削除してい きます。 対象データの量が毎回違うので、データ量がマクロに指定されている行数より 多いと正しく動かないと思いますし、少なければ効率が悪くなるのではと思い ます。 そこで、「データの一番下のセルから削除を始める」設定にしたいのですが、 どうしたらよいでしょうか？ ちなみに、データは給与額をキーに降順に並んでいて下の行から削除していく ようになっています。

仮想話ですが。まず １．アダルトしか置かない ２．その商品は新作：旧作　２：８の割合で 特に旧作の大半はつぶれた店から買い取ったものを中心にラインナップする（２．３年前に流行った作品） ３．料金は１泊２日　新作１００円　旧作５０円とする ４．店はこじんまりと省スペースで行う ５．マニア向けにしない。 この店は回転率を中心に行っています。 これなら従来のお店よりも収益があがりそうな気がしますがいかがでしょうか？