タグ

関連タグで絞り込む (2)

タグの絞り込みを解除

algorithmとMSOfficeに関するkenjiro_nのブックマーク (3)

  • シートを並べ替えるExcelマクロ:エクセルマクロ・Excel VBAの使い方/Sheets・Worksheet

    よく出る要望ではありますが、残念ながらExcelの標準機能にはないので、VBA(Visual Basic for Applications)でマクロを作りましょう。 Sub シートをシート名の昇順で並び替える() Dim s1 As Long Dim s2 As Long For s1 = 1 To Sheets.Count For s2 = 1 To Sheets.Count - 1 If Sheets(s2).Name > Sheets(s2 + 1).Name Then Sheets(s2).Move After:=Sheets(s2 + 1) End If Next s2 Next s1 End Sub 上記のSubプロシージャを、VBE(Visual Basic Editor)を起動して標準モジュールに貼り付け、シートを並び替えたいブックがアクティブな状態でSortSheetsマ

  • シートを並べ替える:Excel VBA|即効テクニック|Excel VBAを学ぶならmoug

    ツイート ブックに複数のシートが存在するとき、これらのシートをシート名の順に並べ替えるにはどうしたらいいでしょう。 2つの方法をご紹介します。 ■配列を使用する方法 1つ目は、すべてのシート名を配列に格納し、配列内のシート名を並べ替える方法です。 配列内の要素を並べ替えるにはいくつかのアルゴリズムがありますが、ここでは最も簡単な方法で行ってみましょう。 Sub Sample1() Dim i As Long, j As Long, cnt As Long Dim buf() As String, swap As String cnt = Worksheets.Count ReDim buf(cnt) 'ワークシート名を配列に入れる For i = 1 To cnt buf(i) = Worksheets(i).Name Next i '配列の要素をソートする For i = 1 To cn

  • エクセルを用いたスプライン補間法による近似曲線

    スプラインはかつて製図で用いられた自在定規を意味しており、補間点を結ぶなめらかな曲線が描けることからこのようによんでいる。 xのいくつかの値に対し、yの値をなんらかの方法(実験、実測、観測、数表等)によってもとめ、これらのデータをもとにして、データの間の任意の点xにおけるyの値を推定する方法を補間法という。 スプライン関数には基スプライン(B-スプライン)、カーディナルスプライン(C-スプライン)、自然スプライン(N-スプライン)などの種類がある。 ここでは、自然スプライン関数による3次の補間法について述べる。自然スプラインは、補間関数のなかで最も滑らかな関数である。 n+1個の補間点(x0y0),,(x1,y1),(x2,y2),・・・・(xn,yn)が与えられたとき、i番目の区間[xi-1,xi]を次の3次式で近似する。 Pi(x) = C1,i + C2,i(x-xi-1)

  • 1