K-41 【解決方法Q&A/疑問攻略/ブログ】
Q&A：K-41について? 解決方法/評価
・excel2010 VBAでの質問です。Private Sub CommandButton1_Click()Dim i As Long, j As Long, k As Long, l As LongDim ○○ As String For i = 1 To 62 For j = 1 To 36 If Sheets("d " & i).Cells(j + 5, 4).Value = "" Then ○○ = "" ElseIf Sheets("d " & i).Cells(j + 5, 4).Value <> "" Then ○○ = Sheets("d " & i).Cells(j + 5, 4).Value End If Sheets("○○").Cells(j + 5, i + 1).Value = ○○ Next j For k = 1 To 36 If Sheets("d " & i).Cells(k + 5, 12).Value = "" Then ○○ = "" ElseIf Sheets("d " & i).Cells(k + 5, 12).Value <> "" Then ○○ = Sheets("d " & i).Cells(k + 5, 12).Value End If Sheets("○○").Cells(k + 41, i + 1).Value = ○○ Next k For l = 1 To 36 If Sheets("d " & i).Cells(l + 5, 20).Value = "" Then ○○ = "" ElseIf Sheets("d " & i).Cells(l + 5, 20).Value <> "" Then ○○ = Sheets("d " & i).Cells(l + 5, 20).Value End If Sheets("○○").Cells(l + 77, i + 1).Value = ○○ Next l Next i End Subこれを実行すると約50秒かかるのですが、もっと早く終わらせるようにできないでしょうか？・豊橋は、名古屋に匹敵する大都会などと言いながら、愛知県頼みのカネよこせ、情けない！無能ですか？http://www.gijiroku.jp/gikai/cgi-bin/WWWframeNittei.exe?USR=tyhs&PWD=&A=frameNittei&XM=000100000000000&L=1&S=15&Y=%95%bd%90%ac22%94%4e&B=240&T=1&T0=70&O=1&P1=&P2=&P3=&P=1&K=41&N=87&W1=%97%7b%8c%ec%8a%77%8d%5a&W2=&W3=&W4=&DU=0・安定型同位元素について、教えてください。（ ）内を質量数とする。Ｃｌ（35）、Ｃｌ（37）。Ｋ（39）、Ｋ（41）、Ｃｕ（63）、Ｃｕ（65）同位元素は、なぜ、2違うのですか？・会社の支店で女４人で働いています。しかし、この支店長女性（６３歳）人間失格な感ありです。支店長・私５５歳・K（４１歳）H（３７歳）支店長はとにかく気むらでいい加減です。契約は横取りする。それでも子分は欲しいらしく一番若い人に物をあげたりしてご機嫌をとる。２対２に分かれつつあります。が、その若い人は,あまりこの状況が飲み込めてない。どっちにもついてない。のほほんとしていて把握してないです。毎日毎日、つんつんケンケン・・・・この支店大丈夫ですか？
●気になる商品を検索
●気になる話題を検索