working on it ...

Filters

Explore Public Snippets

Sort by

Found 2.9M snippets

    public by ryancmartin1976  19  0  1  0

    console.log()

    quick and dirty
    console.log('code snippet test');

    public by dollsaiko  20  0  1  0

    doll

    ソウルフットボールクラブは本物の人間のように見えるセックス人形を使用しています
    https://www.saikodoll.com
    マネキンは実在することを確認しておりますが、大人の商品とは関係ありません。しかし問題は、詳細な検査を実施できなかったことです。これは間違いなく私たちの責任です。謝罪でショックを受けたファンは絶望的になりました。あるファンは、「明らかに」ラブドールであり、ソウルフットボールクラブの「家族全員で試合を観戦する」ための努力を損なったと書いています。本物のセックス人形のメーカーはこれについてコメントできませんでした。コメントを求めるKリーグからの電話はありません。このイベントは、パンデミックの際に唯一のアクティブなトップフットボールリーグの1つであり、かつてないほどの人気を誇るKリーグに後退をもたらします。 10か国(主にアジアとヨーロッパ)の放送局が今シーズンの著作権を購入しました。
    
    ブランドTPE材料高級ラブドール
    
    ソウルフットボールクラブは、Instagramの声明で、「ファンに謝罪したい」と述べた。 「2020年5月17日にゲームに登場したモデルを深く後悔しています。」ただし、これらの人体モデルは実際の人間のように見えますが、それらはセックス用ではないことを明確にする必要があります。メーカーは確認しています。 「私たちは、コスチュームモデルであると主張するダッチワイフ会社から提供されました。性行為に使用されていないことを確認するために、2、3回チェックを行いました。」それらを提供する前に、リボンから管理しました。これらのマネキンは、ラベルに戻されました。この過程で、彼らは色付きのリボンの名前を与えられました。これがリボンに関連する唯一の理由です。この点について確認することはできません。それは確かに私たちの責任です。申し訳ございません。 「したがって、男性のセックス人形はセックスに特化したものではありませんが、通常のマネキンではありません。
    https://www.saikodoll.com/collections/dutch-wives-dolls
    コロナウイルスのパンデミックの間、世界中のスポーツチームは徐々に正常に戻ってきました。空のスタジアムでもトレーニング場に戻ることができる人もいれば、直接ゲームに戻される人もいます。韓国のサッカーチームは、悲鳴を上げるファンの前で試合の感覚を再現しようと、創造性をもって遊んでいます。 KリーグFCソウルは、スタジアム全体の座席に「マンナン」の山を投げ、クラブのTシャツを渡し、一部にはお祝いのロゴが付いていました。
    
    関係者は、「これは明らかな違反ではないため、これが規則に違反しているかどうかを言うのは容易ではない」と述べた。 巨乳ラブドール「私たちは明確な説明を得るために一生懸命働いています。」コロナウイルスの蔓延以来、韓国は最初の競争国となり、グランドリーグ以降、韓国はかつてない国際的な注目を集めました。
    
    https://www.saikodoll.com/collections/rori-sexdoll

    public by BoraAyper  22  0  1  0

    vba object properties Get-Let

    // Enter here the actual content of the snippet.					
    
    
    //Private olarak property olarak gelecek deger uzerinde kontrol saglayacagimiz
    // degisken yap
    Private p_alan_kaca_bolunecek As Integer
    
    // bu alttaki olaylar bu deger uzerinfde kontrol saglamak icin
    //mesela bolunecek alan 100 u gecmeyecek diyeceksek bu get let de belirleyebiliriz
    Public Property Get alan_kaca_bolunecek() As Integer
        alan_kaca_bolunecek = p_alan_kaca_bolunecek
    End Property
    
    Public Property Let alan_kaca_bolunecek(Value As Integer)
        p_alan_kaca_bolunecek = Value
    End Property
    

    public by BoraAyper  22  0  1  0

    call module

    // Enter here the actual content of the snippet.
    
    Call Module2.Bora_EMA_Optimizer(Range("t1"), Range("t2"), Range("t11"), Range("t12"), Range("t13"), Range("t14"), Range("q10"), Range("q11"), Range("q12"), Range("q13"), Range("q9"))
    

    public by enayu  35  1  2  0

    [Comedy] The Whistlers (2020) Free Online

    https://www.dailymotion.com/playlist/x6qxmv
    // Enter here the actual content of the snippet.						
    https://www.dailymotion.com/playlist/x6qxmv
    https://www.dailymotion.com/playlist/x6qxmv
    https://www.dailymotion.com/playlist/x6qxmv
    

    public by BoraAyper  30  0  1  0

    Get RowNum

    // Enter here the actual content of the snippet.						
    
    Function GetRowNum(Simpson_son_tarih)
    Dim lrow As Long
    
        //Specifies that when a run-time error occurs, control goes to the statement immediately following 
        //the statement where the error occurred, and execution continues from that point. Use this form rather than On Error GoTo when accessing objects.
        On Error Resume Next
        lrow = Application.WorksheetFunction.Match(Simpson_son_tarih, Worksheets("Data").Range("a1:a5000"), 0)
        
        //Disables enabled error handler in the current procedure and resets it to Nothing.
        On Error GoTo 0
        
        If lrow > 0 Then
            'code
        GetRowNum = lrow
        
        End If
    
    End Function         

    public by BoraAyper  34  1  1  0

    For Each Cell usage

    // Enter here the actual content of the snippet.						
    
    Range("o1:ab3000").ClearContents
    Range("m20:n22").ClearContents
    
    '-------------------------------
    Set WS = Worksheets("EMA Analiz (2)")
    With WS
        Set LastCella = .Cells(.Rows.Count, "a").End(xlUp)
        
        lastcellrownumber = Application.WorksheetFunction.max(LastCella.Row)
    End With
    '----------------------------------------------
    Set rng = Worksheets("EMA Analiz (2)").Range("E2:E" & lastcellrownumber)
    
    sonuc_satiri_arti_bir = 0
    '-----------------------------------------
    
    For Each cll In rng
    ....
    Next cll

    public by BoraAyper  27  1  1  0

    VBA random function

    // Enter here the actual content of the snippet.	
    
    Range("t1") = Rnd() * -1
    Range("t2") = Rnd()
    
    Range("t3") = Application.WorksheetFunction.RandBetween(-25, 0)
    Range("t4") = Application.WorksheetFunction.RandBetween(-5, 30)
    
    Range("t7") = Application.WorksheetFunction.RandBetween(50, 70)
    Range("t8") = Application.WorksheetFunction.RandBetween(60, 90)
    
    Range("t9") = Rnd(1) * -1
    Range("t10") = Rnd(1)

    public by BoraAyper  26  0  1  0

    Interior Color

    // Enter here the actual content of the snippet.					
    
    If Range("w13") > Range("t13") And Range("w13") < Range("t14") Then
    
    Range("w13").Interior.Color = rgbLimeGreen
    
    End If

    public by BoraAyper  27  1  1  0

    Clear Contents,Comments,Formats

    // Enter here the actual content of the snippet.						
    Range("a1:o5000").ClearContents
     Range("a1:o5000").ClearComments
     Range("a1:o5000").ClearFormats
    • Public Snippets
    • Channels Snippets